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Objectives 


Sometimes I hear people talk about how smart computers have become. But 
computers aren't smart: programmers are. Programmers make microprocessors act 
like calculators, moon landers, or income tax preparers. Programmers must be 
smart, because by themselves microprocessors can’t do much of anything. 

Sound programming, then, is fundamental to successful computer use. With 
this principle in mind, this book has two objectives: first, to introduce newcomers to 
some of the techniques, terminology, and power of assembly-language program- 
ming in general, and of the 6502 in particular; and second, to present a set of soft- 
ware tools to use in developing assembly-language programs for the 6502. 

Chapter 1 takes you on a quick tour of your computer’s hardware and soft- 
ware; Chapters 2 thru 4 comprise a short course in assembly-language programming 
for those readers new to the subject. The rest of the book presents source listings, 
object code, and assembler listings for programs that you may enter into your com- 
puter and run. 

Programmers have long sought to develop small and fast programs with the un- 
fortunate result that occasionally code has been written that is unreadable (and even 
unworkable) simply because a programmer wanted to save a few bytes or a few 
cycles. In certain instances when memory space is particularly tight or execution 
time is critical, readability is sacrificed for performance. But today the average pro- 
grammer is not forced to make this choice. Of course, all other things being equal, I, 
too, value programs that are quick and compact. 

But how often are all other things equal? 

While developing the programs that appear in this book, I had a number of ob- 
jectives, most of them more important than the speed or size of a block of code. I 
designed these programs to be: 

Useful: No program is presented simply to demonstrate a particular program- 
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ming technique. All of the programs in this book were written because I needed cer- 
tain things done — usually something I didn’t want to be bothered with doing 
myself. The monitor monitors, the disassembler disassembles, and the text editor 
lets me enter and edit text strings. These programs earn their keep. 

Easy to Use: Simply by glancing at the screen you can tell which program is 
running and what mode it is in. When a program needs information, it asks you for 
it and allows you to correct mistakes you might make while answering. This soft- 
ware doesn’t require you to remember the addresses of programs or of variables. 
Functions are mapped to individual keys, and you can assign functions to keys in 
any way that makes sense to you. 

Readable: A beginning 6502 programmer should be able to understand the 
workings of every program in this book. The labels and comments in the listings 
were carefully chosen to reveal the purpose of each variable, subroutine, and line of 
code. I am writing first and foremost for you, the reader, not for the 6502. 

Portable: The book’s software runs on an Apple II, an Atari 400 or 800, an 
Ohio Scientific (OSI) Challenger I-P, or a PET 2001. With proper initialization of 
the System Data Block, it should run on any 6502-based computer equipped with a 
keyboard and a memory-mapped, character-graphics video display. 

Compatible: These routines are very good neighbors. As long as the other soft- 
ware in your system does not use the second 4 K bytes of memory (hexadecimal 
memory locations 1000 thru 1FFF), there should be no conflict between your soft- 
ware and the software in this book. In particular, most of the software in this book 
preserves the zero page, so your software may use the zero page as muchas you like, 
and you won't be bothered with having to save and restore it before and after calls 
to the software presented herein. 

Expandable: The programs in this book are highly modular, and you may ex- 
tend or restructure them to meet your individual needs. System-specific subroutines 
are called indirectly, so that other subroutines may be substituted for them, and 
most values are treated as variables, rather than as constants hard-wired into the 
code. There are no monolithic programs in this book; they’re all subroutines and 
may be combined in many ways to build powerful new structures. 

Compact: J know that every personal computer has exactly the same available 
memory: too little. I also know ways to write a program in ten or twenty percent 
less space. But if doing so required sacrificing readability, portability, or expand- 
ability, I did not do so. In many cases I feared that to save a byte, I might lose a 
reader's clear understanding of how a program works. I considered that too great a 
price to pay for a somewhat smaller program. 

Fast: Assuming that the above objectives have been met, the software in this 
book has been developed to operate as quickly as possible. But in any trade-off be- 
tween speed and the other objectives, speed loses. A fast program that you can’t 
understand holds little value. None of the programs in this book are likely to make 
you complain about how long you have to wait, I can’t tell if I’m waiting an extra 
millisecond. Can you? 

So go ahead. Read. Program. Enjoy! 
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Your Computer 


The software in this book can run on a number of computers because it assumes 
very little about the host machine. Let’s examine these assumptions and in so doing 
take a quick tour of your computer. 


The 6502 Microprocessor 


Weill start with the 6502 microprocessor, the component in your system that 
actually computes. By itself, the 6502 can’t do much. It has three registers (special 
memory areas for storing the data upon which the program is operating), called A, 
X, and Y, which can each hold a number in the range of 0 to 255. Different registers 
have different capabilities. For example, if a number is in A (the accumulator), the 
6502 can add to it, or subtract from it, any value up to 255. But if a number is in the 
X register or the Y register, the 6502 can only increment or decrement that number 
(ie: add or subtract one from it). 

The 6502 can also set one register equal to the value of another register, and it 
can store the contents of any register anywhere in memory, or load any register 
from any location in memory. Thus, although the 6502 can only operate on one 
number at a time, it can operate on many numbers, just by loading registers from 
various locations in memory, operating on the registers, and then storing the results 
of those operations back into memory. 


Types of Memory 


You may have heard that a computer stores information as a series of ones and 
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zeros. This is because the computer’s memory is simply an elaborate array of 
switches, and an individual switch can have only two states: closed or open. These 
two states may also be expressed as on and off, or as one and zero. 

Not all memory switches are the same. Some, in what is called ROM (read-only 
memory), are hard-wired into your computer's circuitry and cannot be changed ex- 
cept by physically replacing the ROM circuits containing those switches. Others, in 
what is called RAM (random-access memory) or programmable memory, can be 
changed by the processor. The 6502 can open or close any of the switches, called bits 
(binary digits), in its programmable memory, and later on read what it “wrote” into 
that memory. Figure 1.1 shows how the processor has access to read-only memory 


and programmable memory. 
READ - ONLY 


PROGRAMMABLE 
MEMORY 


Figure 1.1: How the 6502 interacts with memory. The arrows indicate the flow of data. 


A third kind of memory is set by some external device, not by the 6502. Such 
memory switches are called input ports, and may be connected to keyboards, ter- 
minals, burglar alarms — virtually anything that can generate an electrical signal. 
The 6502 perceives these externally generated signals by reading the appropriate in- 
put ports. 

Yet another kind of memory switch, called an output port, generates a high ora 
low voltage on some particular wire depending on whether the 6502 sets a given 
memory switch to a one or a zero. One or more of these output ports can enable the 
6502 to “talk” to the outside world. 

Now don’t jump up and think I'm going to show you how to synthesize speech 
in this book, “Talk” is just my way of anthropomorphizing the 6502. It will happen 
elsewhere in this book, when the 6502 “sees,” “remembers,” and “knows” what to 
do. Of course the 6502 doesn’t see, remember, or know anything, but I often find it 
helpful to put myself in its place. That way I can better understand how a program 
will run, or why a program doesn’t run, and I do see, remember, and know things. 

But don’t take such verbs too literally. The 6502 doesn’t talk. It causes signals to 
be generated that may be sensed by other devices, such as cassette recorders, 
printers, disk drives — and yes, even speech synthesizers. But not in this book. 

Some peripheral devices are actually connected to both an input and an output 
port. Examples of these devices are cassette tape machines and floppy-disk drives, 
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which are mass-storage or secondary-storage devices. Figure 1.2 summarizes the 


processor's access to memory and to peripheral devices. 


PERIPHERALS MEMORY 


VIDEO DISPLAY 


OUTPUT 
PORTS 


CASSETTE 
RECORDER 


INPUT PORTS 


READ-ONLY 
MEMORY 


MAIN MEMORY 


PROGRAMMABLE 
MEMORY 


PROCESSOR 


Figure 1.2: A summary of the 6502 microprocessor's access to data in main memory and 


through I/O (input and output) ports. The arrows indicate the flow of data. 


A video screen connected to your computer looks like memory to the 6502, so 
the 6502 can read from and write to the screen. The keyboard is scanned by I/O (in- 
put/output) ports that are decoded to look like any other programmable memory 
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address, so the 6502 can look at the keyboard just by looking at a particular place in 
memory. Thus, the 6502 can interact directly with memory only, but because all 
I/O devices are mapped to addresses in memory, the 6502 can interact with the user. 


See figure 1.3. 
VIDEO 
SCREEN 


| wewon 
Se ee 


Figure 1.3: How the 6502 interacts with the user. Arrows indicate the flow of data. 


The Operating System 


Thus far we have discussed your machine’s hardware. But the Apple, Atari 
OSI, and PET computers feature more than hardware. For example, all these com- 
puters have an operating system (stored in ROM) which includes the I/O software 
routines that are needed to use the screen and the keyboard. We are not particularly 
concerned with how these subroutines work, but I assume your system does have 
such routines, 

There are many other subroutines in your computer's operating system. Your 
system's documentation should tell you what subroutines are available and provide 
their addresses. All of this means power for you, the programmer. The more you 
know about your computer, the more you can make it do. Because the software in 
this book was developed to run on a number of systems, I chose not to use routines 
available in your machine’s ROM, no matter how powerful they might be, unless I 
could be sure that they would be available in the operating systems of the Apple, the 
Atari, the OSI, and the PET computers. In other words, the software in this book 
does not take full advantage of the power in your operating system. But the software 
you write, which need only run on your system, should exploit to the fullest the 
power of your computer’s ROM routines. 
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BASIC 


One of the most important features of your computer is the BASIC interpreter 
in ROM. This interpreter is a program that enables your computer to understand 
commands given in BASIC. Your system’s documentation should tell you what 
commands are legal in the particular dialect of BASIC implemented on your 
machine. BASIC is an easy language to learn and you can do a lot with it. 

Unfortunately, not every dialect of BASIC is the same. A program written in 
BASIC that runs on machine A may not run on machine B. BASIC is a common 
language, but not a standard one. Is there any language that is standard from 
system to system? 


6502 Code 


The central processor is the computer's heart. The Apple, Atari, OSI, and PET 
computers all use the 6502 microprocessor. Every microprocessor has a certain in- 
struction set, or group of instructions, which the microprocessor can execute. These 
instructions are at a much lower level than the BASIC commands with which you 
may be familiar. For example, in BASIC you can have a single line in a program to 
PRINT “HELLO.” It would take a sequence of many 6502 instructions to perform 
the same function. 

However, a sequence of microprocessor instructions will run on any computer 
featuring that microprocessor. Thus, if you write a program consisting of 6502 in- 
structions to perform some function, that program should run on any 6502-based 
computer. It won’t run on an 8080-based computer, a Z80-based computer, or a 
6800-based computer, but it should run on an Apple, a PET, an Atari, an OSI, or 
any other system built around a 6502. 6502 programs can also run much faster than 
equivalent programs written in BASIC and can be smaller than BASIC programs. 
The programs presented in this book are all written in 6502 code, and require only 
half of the memory available on a computer containing 8,000 bytes of program- 
mable memory, thus leaving more than enough room for your own programs. 
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Chapter 2: 
Introduction to Assembler 


Ever watch a juggler or a good juggling team? The balls, pins, or whatever are 
in the air in such intricate patterns that you can hardly follow them, let alone 
duplicate the performance yourself. It’s beautiful, but not magic; just an application 
of some simple rules. I’ve learned to juggle recently, and although I’m still a rank 
beginner, I’ve taught my two hands to keep three balls moving through the air. Yet 
neither hand knows very much. A hand will toss a ball into the air, and then it will 
catch a ball. The other hand will toss a ball into the air, and then it will catch a ball. 
That's all. My hands perform only two operations: toss and catch. Yet with those 
two primitive operations I can put on a pleasant little performance. 

Assembly-language programming is not so different from juggling. Like jug- 
gling, programming enables you to put on an impressive or baffling performance. In 
its simplest terms, juggling is nothing more than taking something from one place 
and putting it someplace else. The same thing is true of the central processor: the 
6502 takes something from one place and puts it someplace else. 

In fact, programming the 6502 is easier than juggling in several ways. First, the 
6502 is obviously much faster than even the most skillful juggler. In the time it takes 
me to pick up a ball with one hand and place that ball somewhere else, the 6502 can 
get something from one place and put it someplace else hundreds of thousands of 
times. Sleight of hand requires quickness, and the 6502 is quick. 

The 6502 even gives me a helping hand. When I try to juggle, I must keep the 
balls moving with nothing but my two hands. But my home computer has three 
hands (registers A, X, and Y in the 6502) and thousands of pockets (8,000 bytes or 
more of programmable memory). 

A byte is 8 bits of data that may be loaded together into a register. A register 
holds 1 byte. Each location in memory holds 1 byte. The 6502 can affect only 1 byte 
in one operation. But because the 6502 can perform hundreds of thousands of opera- 
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tions each second, it can affect hundreds of thousands of bytes each second. 


Binary 


In the final analysis, any value is stored within the computer as a series of bits. 
If we wish, we may specify a byte by its bit pattern: such a representation uses only 
ones and zeroes, and is called binary. For example, the number 25 in binary is 
00011001. 

In binary, each bit indicates the presence or absence of some value. Each bit 
represents twice as much value, or significance, as the bit to its right, so the right- 
most bit is the least significant, and the left-most bit is the most significant. Table 2.1 
gives the significance of each bit in an 8-bit byte: 


Table 2.1: Bit significance in an 8-bit byte. 


Bit Number: b7 b6 bS b4 b3 + +b2~ bil ObO 
Bit Significance: 128 64 32 16 8 4 2 1 


The right-most bit (called bit 0) tells us whether we have a one in our byte. The 
bit to its left (bit 1) tells us whether we have a two; the bit to its left tells us whether 
we have a four...and the leftmost bit (bit 7) tells us whether we have a 128 in our 
byte. 

To determine the bit pattern for a given value — say, 25 — determine first what 
powers of two must be added to equal your value. For instance, 25 = 16 + 8 + 1, 
so 25 in binary is 00011001. 

Twenty-five can be expressed in other ways as well, Rather than specify every 
number as a pattern of eight ones and zeros, we often express numbers in hexa- 
decimal representation. 


Hexadecimal 


Unlike binary, which requires a group of eight characters to represent an 8-bit 
value, hexadecimal notation allows us to represent an 8-bit value with a group of 
only two characters. These characters are not limited to 0 and 1, but may include 
any digit from 0 to 9, and any letter from “A” to “F.” That gives us a set of sixteen 
characters, which is just right because we want to represent numbers in base 16. 


INTRODUCTION TO ASSEMBLER 9 


(Hexadecimal stands for 16: hex for six, and decimal for ten. Six plus ten equals six- 
teen.) 

To represent a byte in hexadecimal notation, divide the 8-bit byte into two 4-bit 
units (sometimes called nybbles). Each of these 4-bit units has a value of from 0 to15 
(decimal), which we express with a single hexadecimal digit. A decimal 10 is a hexa- 
decimal $A. (The dollar sign indicates that a number is in hexadecimal representa- 
tion.) Table 2.2 gives the conversions of decimal to hexadecimal for decimal 
numbers 0 thru 15. 


Table 2.2: Hexadecimal character set. 


Hexadecimal Character Decimal Equivalent 
$0 = 0 
$1 = 1 
$2 = 2 
$3 = 3 
$4 = 4 
$5 = 5 
$6 = 6 
$7 = 7 
$8 = 8 
$9 = 9 
$A = 10 
$B = 11 \ 
$C = 12 
$D = 13 
SE = 14 
$F = 15 


Appendix Ail, Hexadecimal Conversion Table, shows the hexadecimal 
representation of every number from 0 to 255 decimal. 

In this book, object code, the only code that the machine can execute directly, 
will generally be presented in hexadecimal, and a thorough understanding of hexa- 
decimal will help you to interpret instructions and follow some of the 6502’s actions. 
Even the sketchiest understanding of hexadecimal math, however, should be suffi- 
cient for you to follow and use the programs in this book. 
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ASCII Characters 


Instead of a number from 0 to 255, an 8-bit byte can be used to represent an up- 
per or lower case letter of the alphabet, a punctuation mark, or a printer-control 
character such as a carriage return. A string of such bytes may represent a word, a 
message, or even a complete document. Appendix A2, ASCII Character Codes, 
gives the hexadecimal value for any ASCII character. ASCII stands for American 
Standard Code for Information Interchange, and is the closest thing the industry has 
to a standard set of character codes. If you want to store the letter “A” in some loca- 
tion in memory, you can see from Appendix A2 that you must store a $41 in that 
location. 

Whether a given byte is interpreted as a number, an ASCII character, or 
something else depends entirely on the program using that byte. Just as beauty is in 
the eye and mind of the beholder, so is the meaning of a given byte determined by 
the program that sees and uses it. 


The Instruction Cycle 


A microprocessor such as the 6502 can’t do anything without being told. It only 
knows 151 instructions, called opcodes (operation codes). Each opcode is 1 byte 
long. An opcode may command the 6502 to take something from one register and to 
put it someplace in memory, to load some register with the contents of some loca- 
tion in memory, or to perform some other equally simple operation. See Appendix 
A4 for a list of opcodes for the 6502 microprocessor. 

What do 6502s do all day? They work while programmers play. The 6502 gets 
an opcode, performs the specified operation, gets the next opcode, performs the 
specified operation, gets the next opcode, performs the... 

You get the picture. 

How does the 6502 know where to find the next opcode? The 6502 has a 16-bit 
register called the PC (program counter). The PC holds the address of some location 
in memory. When the 6502 starts its instruction cycle, it gets the opcode stored at 
the memory location specified by the PC. Then it performs the operation specified 
by that opcode. When it has executed that instruction, it makes the PC point to the 
next opcode and starts on a new instruction cycle by getting the opcode whose ad- 
dress is now in the PC. 

Figure 2.1 shows a flowchart for the instruction cycle of the 6502 
microprocessor. 

“That's it? That's all the 6502 does?” you ask. 

That's it, But with the right program in memory, we can make the 6502 dance. 
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FETCH OPCODE 
POINTED TO BY THE 
PROGRAM COUNTER 


PERFORM OPERATION 


SPECIFIED BY THAT 
OPCODE 


MAKE PROGRAM 

COUNTER POINT 

TO NEXT OPCODE 
IN MEMORY 


Figure 2.1; The 6502 instruction cycle. 


Machine Language 


A machine-language program is nothing more than a series of machine- 
language instructions stored in memory. If the PC in the 6502 can be made to hold 
the address of the start of your program, then we say that the PC is pointing to your 
program. When the 6502 starts its instruction cycle, it will fetch the first opcode in 
your program, and then perform the operation specified by that opcode. At this 
point, we say that your program is running. 

Each machine-language instruction is stored in memory as a 1-byte opcode, 
which may be followed by 1 or 2 bytes of operand. Thus, a 6502 machine-language 
program might be “A9 05 20 02 04 A2 FS 60.” 

Just a bunch of numbers! (Hexadecimal numbers, in this case.) But it is exactly 
these numbers that the machine understands; hence the term, machine language. 


Assemblers 


Machine language is easy to read — if you’re a machine. But programmers are 
people. So programming tools called assemblers have been developed, which take 
more readable assembly-language source code as input and produce listings and ob- 
ject code as output. The listing is the assembler’s output intended for a human 
reader. The object code is a series of 6502 machine-language instructions intended to 
be stored in memory and executed by the 6502. 
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For each chapter in this book that presents a program, there is an appendix at 
the back of the book containing an assembler listing and a hexdump of the same pro- 
gram. The assembler listing includes both source and object code, making it easy for 
you to read the program; the hexdump shows you what the object code for that pro- 
gram actually looks like in your computer’s memory. Figure 2.2 shows how an 
assembler is used to produce an assembler listing for the programmer and object 
code for the processor. 


SOURCE OF INPUT: 


PROGRAMMER 


ASSEMBLER SOURCE CODE 


INPUT: (MAY CONTAIN COMMENTS } 
PROGRAM: ASSEMBLER 
ASSEMBLER ASSEMBLER 
OUTPUT: LISTING OBJECT CODE 
INTENDED FOR: PROGRAMMER 6502 


Figure 2.2: From programmer to object code. The assembler takes source code as input and 
produces an assembler listing and object code as output. 


The programs in this book have all been produced on the OSI 6500 
Assembler/Editor, running under the OSI 65-D Disk Operating System, on an OSI 
C-IP machine with 24 K bytes of programmable memory and one 5-inch floppy 
disk. It is likely that the source code presented in this book will assemble immedi- 
ately or with only minor modification on other 6500 assemblers. (Incidentally, the 
source code in each chapter of this book should fit into the workspace of a computer 
with much less than 24 K bytes of user memory, if you delete many of the com- 
ments. But then, of course, your listings will be a lot less readable.) 

But you don’t write a listing; an assembler produces a listing. What you write is 
assembly-language source code. 


Source Code 


An assembly-language source program consists of one or more lines of 
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assembly-language source code. A line of assembly-language source code consists of 
up to four fields: 


LABEL MNEMONIC OPERAND COMMENT 


The mnemonic, required in all cases, is a group of three letters chosen to suggest 
the function of a given machine-language instruction. For example, the mnemonic 
LDA stands for LoaD Accumulator. LDX stands for LoaD X register. TXA means 
Transfer the X register to the Accumulator. 6502 mnemonics are not nearly as mean- 
ingful as BASIC commands, but they're a big improvement over the machine- 
language opcodes. See Appendix A3 for a list of 6502 mnemonics, 

Some operations require an operand field. For example, the operation load ac- 
cumulator requires an operand, because the line of source code must specify what 
you wish to load into the accumulator. 

The label and comment fields are optional. A label lets you operate on some 
location in memory by a name that you have assigned to it. Comments are not in- 
cluded in the object code that will be assembled from your program, but they make 
your source code and your listings much more meaningful to a human reader. When 
you write a program, even if no one but yourself will ever read it, try to choose your 
labels and comments so that someone else can understand the purpose of each part 
of the program. Such careful documentation will save you a lot of time weeks or 
months down the road, when you might otherwise reread your program and have 
no idea why you included some unlabeled, uncommented line of source code. 


Loading a Register 


Let’s write a simple program to load a register with a number — say, to load the 
accumulator with the number “10.” Since we want to load the accumulator, we'll use 
the LDA instruction. (If we wanted to load the X register, we would use the LDX in- 
struction, and if we wanted to load the Y register, we’d use LDY.) We know what 
mnemonic to write into our first line of source code. But a glance at Appendix A6, 
6502 Opcodes by Mnemonic and Addressing Mode, shows that LDA has many ad- 
dressing modes. What operand shall we write into this line of source code? 

We know that we want to load the accumulator with a “10,” and not with any 
other number, so we can use the immediate addressing mode to load a “10” directly 
into the accumulator. We'll use a “#” sign to indicate the immediate mode; 


Example | 


LDA #10 
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Example 1 is a legitimate line of source code containing only two fields: a 
mnemonic and an operand. The mnemonic, LDA, means “load the accumulator.” 
But load it with what? The operand tells us what to load into the accumulator. The 
“#” sign specifies that this operation is to take place in the immediate mode, which 
means we want to load the accumulator with a constant to be found in this line of 
source code, rather than with data or a variable to be found in some location in 
memory. Then the operand specifies the constant to be loaded into the accumulator, 
in this case “10.” 


Constants 


A constant is any value that is known by the programmer and “hard-wired” in- 
to the code. A constant does not change during the execution of a program. If a 
value changes during the execution of a program, then it is a variable, and one or 
more memory locations must be allocated to hold the current value of each variable. 

There are several kinds of constants. Any number is a constant. The number 
“7,” for example, is a constant: a seven now will still be a seven this afternoon. A 
character is another kind of constant: the letter “A” will still be the letter “A” tomor- 
row. But a variable, such as one called FUEL, will change during the course of a pro- 
gram (such as a lunar lander simulation), so it is not a constant. 

In Example 1, note that the “#” sign is the only punctuation in the operand field. 
In the absence of special punctuation marks (such as the dollar sign indicating a 
hexadecimal number and the apostrophe indicating an ASCII character representa- 
tion), any numbers given in this book are in decimal. 

What object code will be assembled from this line of source code? Let’s hand- 
assemble it and see. Appendix A6é shows us that the opcode for load accumulator, 
immediate mode, is $A9. So the first byte of object code for this instruction will be 
$A9. The second byte must specify what the 6502 should load into the accumulator. 
We want to load register A with a decimal 10, which is $0A. So the object code 
assembled from Example 1 is: A9 OA. 

When these 2 bytes of object code are executed by the 6502, it will result in the 
accumulator holding a value of $0A, or decimal 10. In effect, we've just told a jug- 
gler: put a “10” in your right hand. 

What if we wanted to load the accumulator with the letter “M,” rather than 
with a number? We'd still use LDA to load the accumulator, and we'd still use the 
immediate mode of addressing, specifying in the operand the constant to be loaded 
into the accumulator. Either of the following two lines of source code will work: 
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Example 2 
LDA #' M 
or 


LDA #$4D 


In each line of source code above, the mnemonic and the “#” sign tell us we're 
loading the accumulator in the immediate mode — ie: with a constant. The operand 
following the “#” sign specifies the constant. An apostrophe indicates that an ASCII 
character follows, whereas a “$” sign indicates that a hexadecimal number follows. 
Appendix A2 shows that an ASCII “M” = $4D; they are simply two representations 
of the same bit pattern. So the two lines of source code above are equivalent; they 
will both assemble into the same object code: A9 4D. 

Which of the two lines of source code is more readable? If a constant will be 
used in a program as an ASCII character, then represent it in your source code as an 
ASCII character. 


Storing the Register 


Now let's say we want to store the contents of the accumulator someplace in 
memory. Every location in memory has a unique address (just like houses do), rang- 
ing from $0000 to $FFFF. Suppose we decide to store the contents of the accumulator 
at memory location $020C. We could do it with the following line of source code: 


Example 3 


STA $020C 


Example 3 will assemble into these 3 bytes of machine language: 8D OC 02. 

According to the Appendix A6, the 6502 opcode for “store accumulator, ab- 
solute mode” (STA) is $8D. 

When the 6502 fetches the opcode “8D,” it knows that it must store the contents 
of the accumulator at the address specified by the next 2 bytes. This is why it is 
called absolute mode. Absolute mode is used when specifying an exact memory 


location in an instruction. 
In the example above, that address seems wrong. It looks like the machine- 


language operand is specifying address $0C02, because the bytes are in that order: 
“OC” followed by “02.” But we want to operate an address $020C. Is something 
wrong here? 
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Low Byte First 


You and I might think something is wrong when the address $020C is written as 
an “OC” followed by an “02” but you and I are people. We don’t think like the 6502. 
When you and I write a number, we tend to write the most significant digit first and 
the least significant digit last. But the 6502 doesn’t work that way. When the 6502 in- 
terprets two sequential bytes as an address, the first byte must contain the less 
significant part of the address (the “low byte”), and the second byte must contain the 
more significant part of the address (the “high byte”). All addressing modes that re- 
quire a 2-byte operand require that the 2 bytes be in this order: less significant byte 
first, followed by the more significant byte. 

However, not all addressing modes require a 2-byte operand. 


Zero-Page Addressing 


Memory is divided into pages, where a page is a block of 256 contiguous ad- 
dresses. The page from $0000 to $00FF is called the zero page, because all addresses 
in this page have a high byte of zero. The zero-page addressing mode takes advan- 
tage of this fact. Source code assembled using the zero-page addressing mode re- 
quires only 1 byte in the operand, because the opcode specifies the zero page mode 
of addressing, and the high byte of the operand is unnecessary because it is 
understood to be zero. Thus, you can specify an address in the zero page by the ab- 
solute or by the zero-page addressing mode, but the zero-page mode will let you do 
it using one less byte. 

If you want to use some location in the zero page to hold a number, you might 
decide to use location $00F4. We could write: 


Example 4 
STA $00F4 
or 


STA $F4 


We could then assemble either line of source code using the absolute addressing 
mode: 8D F4 00. Or we could assemble either line of source code using the zero- 
page mode: 85 F4. 

The opcode “85” means “store accumulator, zero page.” Where in the zero 
page? At location $F4 in the zero page, the same location whose absolute address is 
$00F4. 
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Symbolic Expressions 


Let’s say you want to copy the 3 bytes at memory locations $0200, $0201, and 
$0202 to $0300, $0301, and $0302, respectively. We could write these lines of source 
code: 


Example 5 


LDA $0200 
STA $0300 
LDA $0201 
STA $0301 
LDA $0202 
STA $0302 


This alternately loads a byte into the accumulator, then stores the contents of the ac- 
cumulator into another byte in memory. Note that loading a register from a location 
in memory changes the register, but leaves the contents of the memory location un- 
changed. 

Or we could write the following code, which refers to addresses as symbolic ex- 


pressions: 


Example 6 


ORIGIN = $0200 
DEST = $0300 
LDA ORIGIN 
STA DEST 

LDA ORIGIN +1 
STA DEST +1 
LDA ORIGIN + 2 
STA DEST +2 


ONO GA PWN PH 


In Example 6, lines 1 and 2 are assembler directives, which equate the labels 
“ORIGIN” and “DEST” with the addresses $0200 and $0300, respectively. Other 
lines of source code following these equates may then refer to these addresses by 
their labels, or refer to any address as a symbolic expression consisting of labels and, 
optionally, constants and arithmetic operators. The source code above will cause an 
assembler to generate exactly the same object code as the source code in Example 5, 
but Example 6, whose operands consist of symbolic expressions, is much more 
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readable than Example 5, whose operands are given in hexadecimal. 


Some Exercises 


1) Write the 6502 instructions necessary to load the accumulator with the value 
127, to load the X register with the letter “r,” and to load the Y register with the con- 
tents of address $BO92. 

2) Write the 6502 instructions necessary to copy the byte at address $0043 to the 
address $0092. 


INTRODUCTION TO ASSEMBLER 19 


Chapter 3: 


Loops and Subroutines 


Indexed Addressing 


Although readable, Example 6 is not very efficient, because it requires two lines 
of source code to move each byte. If we want to move 50 or 100 bytes must we then 
write 100 or 200 lines of source code? 

Indexed addressing comes in quite handily here. Instead of specifying the ab- 
solute or zero-page address on which an operation is to be performed, we can 
specify a base address and an index register. The 6502 will add the value of the 
specified index registers to the base address, thereby determining the address on 
which the operation is to be performed. Thus, if we want to move 9 bytes from an 
origin to a destination, we could do it in the following manner, using the indexed ad- 
dressing mode with X as the index register: 


Example 7 
ORIGIN = $0200 
DEST = $0300 
INIT LDX #0 Initialize X register to zero, so we'll start 
with the first byte in the block. 
GET LDA ORIGIN,X Get Xth byte in origin block. 
PUT STA DEST,X Put it into the Xth position in the 
destination block. 
ADJUST INX Adjust X for next byte by incrementing 


(adding 1) to the X register. 
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TEST CPX #9 Done 9 bytes yet? 
BRANCH BNE GET If not, go back and get next byte... 


We will use Example 7 in the following sections to introduce several new in- 
structions and addressing modes. Example 7 includes six lines of source code to 
move 9 contiguous bytes of data. If we tried to move 9 bytes of data with the tech- 
niques used in Examples 5 and 6, it would have taken eighteen lines of source code. 
So with indexed addressing, we've saved ourselves twelve lines of code. But how do 
these lines work? The lines are labeled so we can look at them one-by-one. 

The instruction labeled INIT loads the X register in the immediate mode with 
the value zero. After executing the line INIT, the 6502 has a value of zero in the X 
register. We don’t know anything about what's in the other registers. 

GET loads the accumulator with the Xth byte above the address labeled 
ORIGIN. The first time the 6502 encounters this line, the X register will hold a value 
of zero, so the 6502 will load the accumulator with the zeroth byte above the address 
labeled ORIGIN (ie: it will load the accumulator with the contents of the memory 
location ORIGIN). 

In any line of source code, a comma in the operand indicates that the operation 
to be performed shall use an indexed addressing mode. A comma followed by an “X” 
indicates that the X register will be the index register for an instruction, whereas a 
comma followed by a “Y” indicates that the Y register will be the index for an in- 
struction. There are a number of indexed addressing modes. Two of these are ab- 
solute indexed and zero-page indexed. The line GET in Example 7 uses the absolute 
indexed addressing mode if ORIGIN is above the zero page; if ORIGIN is in the zero 
page then the line labeled GET can be assembled using the zero-page indexed ad- 
dressing mode. Zero-page indexed addressing, like zero-page addressing, requires 
only 1 byte in the operand. 

In zero-page indexed and in absolute indexed addressing, the operand field 
specifies a base address. The 6502 will operate on an address it determines by adding 
to the base address the value of the specified index register (X or Y). Only if the 
specified index register has a value of zero will the 6502 operate on the base address 
itself; in all other cases the 6502 will operate on some address higher in memory. 

So we've loaded the accumulator with the byte at ORIGIN. Now the 6502 
reaches the line labeled PUT in Example 7. This line tells the 6502 to store the ac- 
cumulator in the Xth byte above DEST. We haven't done anything to change X since 
the line INIT set it to zero, so X still holds a value of zero. Therefore, the 6502 will 
store the contents of the accumulator in the zeroth byte above DEST (ie: in DEST 
itself). 

At this point, we have succeeded in moving 1 byte from ORIGIN to DEST. X is 
still zero. Now comes the part that makes indexing worthwhile. The line labeled 
ADJUST is the shortest line of source code we've seen yet, consisting only of the 
mnemonic INX, which means “increment the X register.” Since the X register was 
zero, when this line is executed the X register will be left holding a value of one. 
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Compare Register 


In Example 7, the line labeled TEST compares the value in the X register with 
the number “9.” There are three compare instructions for the 6502, one for each 
register. CMP compares a value with the contents of the accumulator; CPX com- 
pares a value with the contents of the X register, and CPY compares a value with the 
contents of the Y register. 

We can use these compare instructions to compare any register with any value 
in memory, or, in the immediate mode, to compare any register with any constant. 
Such comparisons enable us to test for given conditions. For example, in Example 7, 
the line labeled TEST tests to see if we’ve moved 9 bytes yet. If the X register holds 
the value “9,” then we have moved 9 bytes. (Walk through the loop yourself. When 
you have moved the zeroth through the eighth bytes above ORIGIN to the zeroth 
through the eighth positions above DEST, then you have moved 9 bytes.) 

A compare instruction never changes the contents of a register or of any loca- 
tion in memory. Thus, the X register does not change when the line labeled TEST is 
executed by the 6502. What may change, however, are some of the 6502's status 
flags. 


Status Flags 


In addition to the 6502’s general-purpose registers (A, X, and Y), the 6502 con- 
tains a special register P, the processor status register. Individual bits in the pro- 
cessor status register are set or cleared each time the 6502 performs certain opera- 
tions. These bits, or hardware flags, are: 


bit 0: Carry Flag 

bit 1: Zero Flag 

bit 2: Interrupt Flag 
bit 3: Decimal Flag 
bit 4: Break Flag 

bit 5: Undefined 

bit 6: Overflow Flag 
bit 7; Negative Flag 


2a BOTNOD 


In this book, we will not discuss the use of all the flags in the processor status 
register. In this quick course in assembly-language programming, and in the soft- 
ware subsequently presented in this book, the three flags we will deal with are C, the 
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carry flag; Z, the zero flag; and N, the negative flag. 

A compare operation (CMP, CPX, or CPY) does not change the value of 
registers A, X, or Y, but it does affect the carry, zero, and negative flags. 

For example, if a register is compared with an equal value, the zero flag, Z, will 
be set; otherwise, Z will be cleared. If an instruction sets bit 7 of a register or an ad- 
dress, the negative flag of the status register will also be set; conversely, if an instruc- 
tion clears bit 7 of a register or an address, the negative flag will be cleared. Similar- 
ly, mathematical and logical operations set or clear the carry flag, which acts as a 
ninth bit in all arithmetic and logical operations. Table 3.1 summarizes the effects of 
a compare instruction on the status flags. 


Table 3.1: Status flags affected by compare instructions. Note that if you wish to test the 
status of the carry flag after a compare, you must set it (using the instruction SEC) before 
the compare. When testing the N flag, think of the inputs as signed 8-bit values. 


Carry Flag* Negative Flag Zero Flag 


Compare a register 


with an equal value and you setC, clearN,and _ set Z. 
Compare a register 

with a greater value and you clear C, clear N, and _ clear Z. 
Compare a register 

with a lesser value and you set C, clear N, and clear Z. 
Conditional Branching 


We can have a program take one action or another, depending on the state of a 
given flag. For example, two instructions, BEQ, (Branch on result EQual) and BNE 
(Branch on result Not Equal) cause the 6502 to branch, or jump to a new instruction, 
based on the state of the zero flag. An instruction which causes the 6502 to branch 
based on the state of a flag is called a conditional branch instruction. Other condi- 
tional branch instructions are based on the state of other status flags and are given in 
table 3.2. 


*If you wish to test the status of the carry flag after a compare, you must set it (using 
the instruction SEC) before the compare. 
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Table 3.2: Conditional branch instructions. 


Flag Instruction Description Opcode 
C BCC Branch if carry clear. 90 
C BCS Branch if carry set. BO 
N BPL Branch if result positive. 10 
N BMI Branch if result negative. 30 
Z BEQ Branch if result equal. 

(Zero Flag set). FO 
Z BNE Branch if result not equal. 

(Zero flag clear.) DO 
V BVC Branch if overflow flag clear. 50 
V BVS Branch if overflow flag set. 70 


The line labeled TEST in Example 7 compares the X register to the value “9;” 
this sets or clears the zero flag. The line labeled BRANCH then takes advantage of 
the state of the zero flag, by branching back to the line labeled GET if the result of 
that comparison was not equal. But if Y did equal “9,” then the result of the com- 
parison would have been equal, and the 6502 would not branch back to GET. In- 
stead, the 6502 would execute the instruction following the line labeled BRANCH. 


Loops 


Example 7 shows a program loop. We cause the 6502 to perform a certain 
operation many times, by initializing and then incrementing a counter, and testing 
the counter each time through the loop to see if the job is done. 

There’s a lot of power in loops. What would we have to add or change in 
Example 7 so that it moves not 9, but 90 bytes from one place to another? Happily, 
we wouldn’t have to add anything, and we’d only have to change the operand in the 
line labeled TEST. Instead of comparing the X register with 9, we’d compare it with 
90. See Example 8. 


Example 8 
Move 90 bytes from origin to destination. 


ORIGIN = $0200 
DEST = $0300 
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INIT LDX #0 Initialize X register to zero, so we'll start 
with the first byte in the block. 


GET LDA ORIGIN,X Get Xth byte in origin block. 

PUT STA DEST,X Put it into the Xth position in the 
destination block. 

ADJUST INX Adjust X for next byte. 

TEST CPX #90 Done 90 bytes yet? 

BRANCH ~~ BNE GET If not, get next byte... 


Writing loops lets us write code that is not only compact, but easily tailored to 
meet the demands of a particular application. We couldn't do that, however, 
without indexing and branching. 

Loops can be tricky, though. What's wrong with this loop? 


Example 9 
ORIGIN = $0200 
DEST = $0300 
INIT LDX #0 Initialize X register to zero, so we'll start 
with the first byte in the block. 
GET LDA ORIGIN,X Get Xth byte in origin block. 
PUT STA DEST,X Put it into the Xth position in the 
destination block. 
TEST CPX #9 Done 9 bytes yet? 
BRANCH BNE GET If not, get next byte... 


Examine Example 9 very carefully. How does it differ from Example 7? It lacks 
the line labeled ADJUST, which increments the X register. What will happen when 
the 6502 executes the code in Example 97 It will initialize X to zero; it will get a byte 
from ORIGIN and move it to DEST. Then it will compare the contents of register X 
to 9. Register X won't equal 9, so it will branch back to GET, where it will do exactly 
what it did the first time through the loop, because X will still equal zero. Until the X 
register equals 9, the 6502 will branch back to GET. But nothing in this loop will 
ever change the value of X! So the 6502 will sit in this loop forever, getting a byte 
from ORIGIN and putting it in DEST and determining that the X register does not 
hold a 9... 

Now look at Example 10. Will it cause the 6502 to loop, and if so, will the 6502 
ever exit from the loop? Why, or why not? 
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Example 10 


ORIGIN = $0200 
DEST = $0300 


INIT LDX #40 Initialize X register to zero, so we'll start 
with the first byte in the block. 

GET LDA ORIGIN,X Get Xth byte in origin block. 

PUT STA DEST,X Put it into the Xth position in the 
destination block. 

ADJUST INX Adjust X for next byte. 

TEST CPX #9 Done 9 bytes yet? 

BRANCH BNE INIT If not, get next byte... 

Relative Addressing 


All conditional branch instructions use the relative addressing mode, and they 
are the only instructions to use this addressing mode. Like the zero page and zero- 
page indexed addressing mode, the relative addressing mode requires only a 1-byte 
operand. This operand specifies the relative location of the opcode to which the 6502 
will branch if the status register satisfies the condition required by the branch in- 
struction. A relative location of 04 means the 6502 should branch to an opcode 4 
bytes beyond the next opcode, if the given condition is satisfied. Otherwise, the 6502 
will proceed to the next opcode. 

Because the operand in a conditional branch instruction is only 1 byte, it is not 
possible for a conditional branch instruction to cause a branch more than 127 bytes 
forward or 128 bytes backward from the current value of the program counter. (A 
branch backward is indicated if the relative address specified is negative; forward if 
it's positive. A byte is negative if bit 7 is set. A byte is positive if bit 7 is clear. Thus, 
a value of 00 is considered positive.) However, an instruction called JMP allows the 
programmer to specify an unconditional branch to any location in memory. 
Therefore, if we have a short conditional branch followed by an unconditional 
jump, we may achieve in two instructions a conditional branch to any location in 
memory. 


Unconditional Branch 


Just as BASIC has its GOTO command, which causes an unconditional branch 
to a specified line in a BASIC program, the 6502 has its JMP instruction, which un- 
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conditionally branches to a specified address. A program may loop forever by 
JMP'’ing back to its starting point. 

Look at Example 11. Unless a line of code within the loop causes the 6502 to 
branch to a location outside of the loop, the 6502 will sit in this loop forever. 


Example | 1 
Endless Loop: 
START = xxxxxxxxxx some 
XXXXXXXXKK instructions 
XXXXXXXKKXK 
JMP START 
Indirect Addressing 


A JMP instruction may be written in either the absolute addressing mode or the 
indirect addressing mode. Absolute addressing is used in Example 11. The operand is 
the address to which the 6502 should jump. But in the indirect mode (which is 
always signified by parentheses in the operand field) the operand specifies the ad- 
dress of a pointer. The 6502 will jump to the address specified by the pointer; it will 
not jump to the pointer itself. 

The line of code “JMP (POINTR)” will cause the 6502 to jump to the address 
specified by the 2 bytes at POINTR and POINTR+1. Thus, if POINTR = $0600, 
and the 6502 executes the instruction “JMP (POINTR)” when memory location 
$0600 holds $00 and $0601 holds $20, then the 6502 will jump to address $2000. 
(Remember, addresses are always stored in memory with the low byte first.) 


How Branching Works 


Incidentally, all branches, whether relative, absolute, or indirect, work by 
operating on the contents of the PC (program counter). Before any branch instruc- 
tion is executed, the PC holds the address of the current opcode. A branch instruc- 
tion changes the PC, so that in the next instruction cycle the 6502 will fetch not the 
opcode following the current opcode, but the opcode at the location specified by the 
branch instruction. Then execution will continue normally from the new address. 
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Relocatability 


Often I implement short unconditional branches as: 


CLC 

BCC PLACE 
rather than as: 

JMP PLACE 


This is because the first method (relying as it does on relative rather than ab- 
solute addressing) will still work even if you relocate the code in which it is con- 
tained. Making your code relocatable will save you time and trouble when you try 
to move your programs around in memory and still want them to work. 

To relocate code containing the second example, you'd have to change the 
operand field because the absolute address of PLACE will have changed. To relocate 
code containing the first example, you wouldn't have to change a thing. 


Subroutines 


Perhaps the two most powerful instructions available to the assembly-language 
programmer are the JSR (Jump to SubRoutine) and the RTS (ReTurn from 
Subroutine). These instructions (equivalent to GOSUB and RETURN in BASIC) 
enable us to organize chunks of code as building blocks called subroutines. 

Think of the subroutine as a job. Your computer can do more work for you if it 
knows how to do more jobs. Once you teach the 6502 how to do a given job, you 
won't have to tell it twice. Let’s say you're writing a program in which the same 
operation must be performed at various times within a program. In every location 
within your program where the operation is required, you could include code to per- 
form that operation. On the other hand, you could write code in one place to per- 
form that operation, but write that code as a subroutine, and then call that 
subroutine whenever necessary from the main, or calling program. A call to a 
subroutine causes that routine to execute. When finished, it returns to the instruc- 
tion following the call in the main program. 

It only takes one line of code to call a subroutine. JSR SUB will call the 
subroutine located at the address labeled SUB. After the 6502 fetches and executes 
the JSR opcode, the next opcode it fetches will be at the address labeled SUB, in this 
example. So far it looks like an unconditional JMP. The 6502 will fetch and execute 
opcodes from the addresses following SUB, until it encounters an RTS instruction. 
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When the 6502 fetches an RTS instruction, it returns to its caller, jumping to the 
first opcode following the JSR instruction that called the subroutine. In effect, when 
a line of code calls a subroutine, the 6502 remembers where it is before it jumps to 
the new location. Then when it encounters an RTS instruction, it knows the address 
to which it should return because it remembers where it came from. It then continues 
to fetch opcodes from the point following the JSR instruction. Figure 3.1 illustrates 
this procedure. Note that the same subroutine may be called from many different 
points in the same program, and will always return to the opcode following the JSR 
instruction that called it. 


JUMP TO SUBROUTINE 


MAIN * Kk SUB oh ok te oe 
° e 
e e 
@ ® 


LAST RTS 


CALL JSR SUB nero snow sesrovene | 
NEXT TTT RETURN FROM SUBROUTINE 


Figure 3.1: Jump to and return from subroutine. When the processor encounters a JSR (jump 
to subroutine) instruction, the next instruction executed is the first instruction of the 
subroutine. Here, the subroutine SUB is called from MAIN. The last instruction executed ina 
subroutine must be an RTS (return from subroutine) instruction. Here, the instruction at label 
LAST in subroutine SUB returns control to the next instruction following the call to the 
subroutine in the main program, the instruction labeled NEXT. The subroutine SUB can be 
called anywhere in the program MAIN when the particular function of SUB is needed. 


Subroutines allow you to structure your software. With structured software, 
you can make changes to many programs just by changing one subroutine. If, for 
example, all programs that print characters do so by calling a single-character-print 
subroutine, then any time you improve that subroutine you improve the printing 
behavior of all your programs. Changing something only once is a tremendous ad- 
vantage over having to change something in many different (usually undocumented) 
places within a piece of code. For these reasons, all of the software in this book uses 
subroutines. 
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Dummies 


A dummy subroutine is a subroutine consisting of nothing but an RTS instruc- 
tion. A line of code in a program can call a dummy subroutine and nothing will hap- 
pen; the 6502 will return immediately, with its registers unchanged. 

So why call a dummy subroutine? 

A call to a dummy subroutine provides a “hook,” which you may use later to 
call a functional subroutine. While developing a program, I may have many lines of 
code that call dummy subroutines. Later, when I write the lower-level subroutines, 
it’s easy to change my program so that it calls the functional subroutines rather than 
the dummy subroutines. Trying to insert a subroutine call to a program lacking such 
a hook can make you wish for a “memory shoehorn,” which might let you squeeze 3 
extra bytes of code into the same address space. 


The Stack 


In addition to the addressing modes that enable the 6502 to access addressable 
memory, one addressing mode lets the 6502 access a 256-byte portion of memory 
called the stack. 

You may think of this stack as a stack of trays in a cafeteria. The only way a 
tray can be added is to place it on top of the existing stack. Similarly, the only way 
to get a tray from the stack is to remove one from the top. This is the LIFO (Last-In, 
First-Out) method. The last tray placed onto the stack must be the first tray re- 
moved, 

In our case, when an item is placed onto the top of the stack, it is called a push, 
and when an item is removed from the top of the stack, it is called a pop. The last 
item onto the stack is said to be at the top of the stack. 

For example, let’s say we want to place two items onto the stack. (Each item has 
an 8-bit value, perhaps a number or an ASCII character; see figure 3.2a.) First we 
push item 1 onto the stack, as illustrated in figure 3.2b. All positions above item 1 on 
the stack are said to be empty, the item 1 is on the top of the stack. 

Now, push item 2 onto the stack (see figure 3.2c). What happens? Item 2 is now 
at the top of the stack, not item 1, although item 1 is still on the stack. 

Next, to get item 2 back off the stack, we do a pop (see figure 3.2d). This makes 
item 1 the top of the stack again. Finally, another pop will remove item 1 from the 
stack, leaving the stack completely empty. Note that we had to pop item 2 from the 
stack before we could get to item 1 again. This is the LIFO principle. 

The instruction PHA lets you push the contents of the accumulator onto the 
stack. PLA lets you load the accumulator from the top of the stack (a pop). PHP lets 
you push the processor status register onto the stack. PLP lets you load the pro- 
cessor status register from the stack. 
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Figure 3.2: Pushing and popping the stack. 
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The stack is a very convenient “pocket” to use when you want to store one or a 
few bytes temporarily without using an absolute place in memory. Subroutines may 
pass information to the calling routines by using the stack, but be careful: if a 
subroutine pushes data onto the stack, and fails to pop that data from the stack 
before executing an RTS instruction, then that subroutine will not return to its 
caller. This happens because when the 6502 executes a JSR instruction, it pushes the 
return address—that is, the address of the opcode following the JSR instruc- 
tion—onto the stack. A subroutine can return to its caller only because its return ad- 
dress is on the stack. If its return address is not at the top of the stack when the 
subroutine executes an RTS, it will not return to its caller, So a subroutine should 


always restore the stack before trying to return, 
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Chapter 4: 


Arithmetic and Logic 


Character Translation 


As demonstrated by Examples 7 and 8, indexed addressing is handy for 
performing a given operation (such as a move) on a contiguous group of bytes. But 
it also has another important application: table lookup. For example, let's say you 
and a friend have decided to write notes to one another using a substitution code. 
For every letter, number, and punctuation mark in a message, you've agreed to 
substitute a different character. A “W” will be replaced with a “Y;” a semicolon may 
be replaced with a “9,” etc. 

You each have the same table showing you what to substitute for each character 
that may appear in a message. So you write a note to your friend in English, and 
then, using this table (which might be in the form of a Secret Agent Decoding Ring) 
you code, or encrypt, your note. You send the note in its encrypted form to your 
friend. Anyone else looking at the note would just see garbage, but your friend 
knows that a message can be found in it. So he gets his copy of the character transla- 
tion table (which may be in his Secret Agent Decoding Ring), and he translates the 
encrypted message back into English, looking up the characters that correspond to 
each character in the coded message. 

Children often enjoy coding and decoding messages in this way, but I find it 
about as much fun as filling out forms — which is no fun at all. Unfortunately, pro- 
gramming often involves character translation. Fortunately, I don’t have to do it 
myself. I let my computer perform any necessary character translation by having it 
do what our two secret agents were doing: look up answers in a table. 
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Example 12 
Character Translation Subroutine 


XLATE TAX Use character to be translated as an in- 
dex into the table. 
LDA TABLE,X Look up value in table. 
RTS Return to caller, bearing translated 
character in A and original character in 
X. 


Transfer Register 


In Example 12, the subroutine XLATE assumes when it is called that the ac- 
cumulator holds the byte to be translated. This byte might be a letter, a number, a 
punctuation mark, a control code, or a graphic character, but however you think of 
it, it’s an 8-bit value. Line 1 of XLATE transfers that 8-bit value from the ac- 
cumulator to the X register, using the register-transfer instruction TAX. 

Register-transfer instructions operate only on registers; they do not affect ad- 
dressable memory. These instructions allow the contents of one register to be 
copied, or transferred, to another. The results of a transfer leave the source register 
unchanged, and the destination register holding the same value as the source 
register. The 6502's register-transfer instructions are: 


TAX Transfer accumulator to X register. 
TAY Transfer accumulator to Y register. 
TXA Transfer X register to accumulator. 
TYA Transfer Y register to accumulator. 


Register transfers do not affect the status flags. 

These instructions let you transfer A to X or Y, or to transfer X or Y to A. But 
how would you transfer X to Y, or Y to X? (Hint: it will take two lines of source 
code, each line an instruction from the list above.) 


Table Lookup 
In Example 12, line 2 of XLATE actually performs the character translation by 


looking up the desired data in a table. The label, TABLE, identifies the base address 
for a table that we've previously entered into memory. The indexed addressing 
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mode allows line 2 to get the Xth byte above the base address (ie: to get the Xth byte 
of the table). When that line is executed, the table lookup is complete. The 6502 has 
looked up and now holds in the accumulator the Xth byte in the table. Now all the 
6502 must do is return to its caller, bearing the translated character in A and the 
original character in X. It accomplishes this with the RTS instruction. 

Now you can perform this character translation at any point in any program 
with just one line of source code: 


JSR XLATE 


Table lookup gives me great flexibility as a programmer. If a program uses a 
table lookup and for some reason I want the program to behave differently, I will 
probably only have to change some values in the table; it’s unlikely that IT] have to 
change the table lookup code itself. If I’ve set up my table well, I might not have to 
change anything in the program except the data in the table. 

Table lookup is therefore a very fast and flexible means of performing data 
translation. But the cost of that speed and flexibility can be size. You might be able 
to solve any problem with the right tables in memory, but not if you can’t afford the 
memory necessary to hold all those tables. It’s great when a program can just look 
up the answers it needs, but sometimes a program will actually have to compute its 
answers. 


Arithmetic Operations 
The 6502 can perform the following 8-bit arithmetical operations: 


Shift 
Rotate 
Increment 
Decrement 
Add 
Subtract 


To understand how the 6502 operates on a byte, you must think of the bits in 
that byte. Even if the byte represents a number or a letter, don’t think about what 
you can do to that number or letter. Think about what you can do to the pattern of 
bits in that byte. 

What can you do to those bits? 
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Shift 


You can shift the bits in a byte one position to the left or to the right. An ASL 
(Arithmetic Shift Left) operates on a byte in this manner: it moves each bit one bit to 
the left; it moves the leftmost bit (bit 7) into the carry flag, and it sets the rightmost 
bit (bit 0) to zero. See figure 4.1. 


Cc 


Figure 4.1: Effect of the ASL instruction. 


For example, if the byte at location TMP has the following bit pattern: 
address TMP 0o 1 0 1 0 314 #1 = =0 
then after the instruction “ASL TMP” is executed, the data would look like: 
address TMP 1 0 31 0 31 3124 0 +40 


with the carry flag being set to the previous value of bit 7, in this case 0. If the same 
instruction is again executed, the data becomes: 


address TMP 0 1 0 1 1 0 0 0 


and the carry flag is set to 1. 

A LSR (Logical Shift Right) has just the opposite effect of the ASL. All bits are 
shifted to the right towards the carry flag, introducing zeroes through bit 7. See 
figure 4.2. 


Q Cc 
Figure 4.2: Effect of the LSR instruction. 
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For example, if the byte at location TMP is as originally given above, then after 
the instruction “LSR TMP” is executed, the data at TMP becomes: 


address TMP 0 0 1 0 1 0 1 1 


with the carry flag being set to the previous value of bit 0, in this case zero. If the 
same instruction is executed again, the data becomes: 


address TMP 0 0 0 1 0 1 0 1 


with the carry flag set to 1. 

Because a number is represented in binary (each bit represents a successive 
power of two), some arithmetic operations are simple. To divide a byte by two, 
simply shift it right; to multiply a value in a byte by two, simply shift it left. 


Rotate 

You can also rotate the bits in a byte to the left or to the right through the carry 
flag. Unlike shifting, rotating a byte preserves all the information originally con- 
tained by a byte. 

Figure 4.3 shows how a ROL (rotate left) instruction works. For instance, let’s 
say the data at address TMP is originally the same as in previous examples: 
address TMP o 1 oO 1. 0 #1 1 O 


and let’s say that the carry flag is set (ie: it holds a 1). 
After a “ROL TMP” instruction is executed, the data becomes: 


address TMP 1 0 1 0 1 1 0 1 


Figure 4.3: Effect of the ROL instruction. 
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and the carry bit is set to the previous value of bit 7, namely 1. Notice that bit 0 in 
TMP now holds the original contents of the carry flag, and the carry flag holds the 
original contents of bit 7. Otherwise, everything looks just the same as in the ASL 
operation. After a second execution of the instruction “ROL TMP,” the data 
becomes: 


address TMP 0 1 0 1 1 0 1 1 


with the carry flag set to 1. 

In a rotate left instruction, bit 0 is always set from the carry flag. (In the ASL in- 
struction, bit 0 is always set to 0.) If this had been an ASL instruction, what would 
the bit pattern at TMP be? 

Figure 4.4 shows how a ROR (rotate right) instruction works. It is similar to 
ROL, except that the carry flag is set from bit 0, and bit 7 is set from the carry flag. 


BITS 
7 6 S 4 3 2 1 0 


Figure 4.4: Effect of the ROR instruction. 


Rotate a byte left nine times and you'll still have the original byte. The same is 
true if you rotate a byte right nine times. But shift a byte left nine times, or right nine 
times, and you know what you've got left? Nothing! 


Increment, Decrement 


You can increment or decrement a byte in three ways: using the INC and DEC 
instructions to operate on a byte in memory, using INX and DEX to operate on the X 
register, or using INY and DEY to operate on the Y register. None of these instruc- 
tions affects the carry flag. They do affect the zero flag: Z is set if the result of an in- 
crement or decrement is zero; otherwise Z is cleared. The negative flag is set if the 
result of an increment or decrement is a byte with bit 7 set; otherwise N is cleared. 

Note that if you increment a register or address holding $FF, it will hold zero. 
And similarly, if you decrement a register or address holding a zero, it will hold $FF. 
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You cannot increment or decrement the accumulator, but you can add or sub- 
tract a byte from the accumulator. 


Addition 


Example 13 shows how to add a byte from the location labeled NUMBER to the 
accumulator: 


Example 13 
CLC Clear the carry flag. 
ADC NUMBER Add the contents of location 


NUMBER to the accumulator. 


After these instructions are executed, the accumulator will hold the low 8 bits of 
the result of the addition. If, following the addition, the carry flag is set, then the 
result of the addition was greater than 255; if the carry flag is clear, then the result 
was less than 256, and, therefore, the accumulator is holding the full value of the 
result. Remember, the carry flag must be cleared before performing the ADC in- 
struction. 


Subtraction 


Subtraction is as easy as addition. To subtract a byte from the accumulator, 
first set the carry flag (using the SEC instruction) and then subtract from the ac- 
cumulator a constant or the contents of some address, using the instruction SBC 
(subtract with carry): 


SEC Set the carry flag. 
SBC OPERND Subtract from accumulator the value of 
OPERND, 


If the operand is greater than the initial value of the accumulator, the subtract 
operation will clear the carry flag; otherwise the carry flag will remain set. In either 
case, the accumulator will bear the 8-bit result. 

Thus, you clear the carry flag before adding and set the carry flag before sub- 
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tracting. If the carry flag doesn’t change state, then the accumulator bears the entire 
result. But if the addition or subtraction changes the state of the carry flag, then 
your result is greater then 255 (for an addition) or less than zero (for a subtraction). 


Decimal Mode 


The processor status register includes a bit called the decimal flag. If the decimal 
flag is set, then the 6502 will perform addition and subtraction in decimal mode. If 
the decimal flag is clear, then the 6502 will perform addition and subtraction in 
binary mode. Decimal mode means the bytes are treated as BCD (Binary Coded 
Decimal), meaning that the low 4 bits of a byte represent a value of 0 thru 9, and the 
high 4 bits of the byte represent a value of 0 thru 9. Neither nybble (4 bits) may con- 
tain a value of A-F. So, each nybble represents a decimal digit. 

The instructions SED and CLD set the decimal flag and clear it, respectively. 
Unless you'll be operating with figures that represent dollars and cents, you won't 
need to use the decimal mode. All software in this book assumes that the decimal 
mode is not used. 

Decimal 255 is the biggest value that can be represented by a binary-coded byte, 
but decimal 99 is the biggest value that can be represented by a byte using Binary 
Coded Decimal. 


Logical Operations 


What if you want to set, clear, or change the state of one or more bits in a byte 
without affecting the other bits in that byte? Input and output operations often de- 
mand such “bit-twiddling,” which can be performed by the 6502's logical operations 
ORA, AND, and XOR. 


Setting Bits 


The ORA instruction lets you set one or more bits in the accumulator without 
affecting the state of the other bits. ORA logically OR’s the accumulator with a 
specified byte, or mask, setting bit n in the accumulator if bit n in the accumulator is 
initially set or if bit n in the mask is set, or if both of these bits are set. A logical OR 
will leave bit n of the accumulator clear only if bit n is initially clear in both the ac- 
cumulator and the mask. Table 4.1 shows a truth table for the logical operator OR. 
A truth table gives all possible combinations of 2 bits that can be operated upon (in 
this case, ORed) and the results of these combinations. 
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Table 4.1: Truth table for the logical OR operand. 


Bit 1 Bit 2 Result 
0 OR O = 0 
0 OR 1 = 1 
1 OR O = 1 
1 OR 1 = 1 


For example, suppose we executed the instruction “ORA #$80.” Here the mask 
is $80, or the bit pattern 10000000. This instruction would therefore set bit 7 of the 
accumulator while leaving all other bits unchanged. So, if the accumulator had a 
value of 00010010 before the above instruction was executed, it would have the 
value of 10010010 afterwards. 

Another example would be “ORA #3.” Since a decimal 3 becomes 00000011 
when converted to an 8-bit binary mask, the above instruction would set bits 0 and 1 
in the accumulator, leaving bits 2 thru 7 unchanged. 

How would you set the high 4 bits in the accumulator? The low 4 bits? 


Clearing Bits 


You can clear one or more bits in the accumulator without affecting the state of 
the other bits through the use of the AND instruction. AND performs a logical AND 
on the accumulator and the mask specified by the operand. AND will set bit n of the 
accumulator only if bit n of the accumulator is set initially and bit n is set in the 
mask. If bit n is initially clear in the accumulator or if bit n is clear in the mask, then 
AND will clear bit n in the accumulator. Table 4.2 gives the truth table for the 
logical AND operation. 


Table 4.2: The truth table for the logical AND. 


Bit 1 Bit 2 Result 
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For instance, the line of source code “AND #1” will clear all bits except bit 0 in 
the accumulator; bit 0 will remain unchanged. “AND #$FO” will clear the low 4 bits 
of the accumulator, leaving the high 4 bits unchanged. Select the right mask, and 
you can clear any bit or combination of bits in the accumulator without affecting the 
other bits in the accumulator. 


Toggle Bits 


The exclusive OR operation, XOR, lets you “flip,” or toggle, one or more bits in 
the accumulator (ie: change the state of one or more bits without affecting the state 
of other bits). XOR will set bit n of the accumulator if bit n is set in the accumulator 
but not in the mask, or if bit nis set in the mask but not in the accumulator. If bit n 
has the same state in both the accumulator and in the mask, then XOR will clear bit 
n in the accumulator. Table 4.3 shows the truth table for this operation. 


Table 4.3: The truth table for the exclusive OR (XOR). 


Bit 1 Bit 2 Result 
0 XOR O = 0 
0 xXOR 1 = 1 
1 XOR O = 1 
1 XOR 1 = 0 


To toggle bit n in the accumulator, simply XOR the accumulator with a mask 
which has bit n set but all other bits clear. Bit n will change state in the accumulator, 
but all other bits in the accumulator will remain unchanged. 

The logical operators, combined with the 6502’s relative branch instructions, 
make it possible for a program to take one action or another depending on the state 
of a given bit in memory. Let's say you want a piece of code that will take one action 
(Action A) if a byte, called FLAG, has bit 6 set; yet take another action (Action B) if 
that bit is clear. The code of Example 14 shows one way to ignore all other bits in 
FLAG, and still preserve FLAG. 


Example 14 
LDA FLAG Get flag byte. 
AND #$40 Clear all bits but bit 6. 


BEQ PLAN.B 
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PLAN.A XXXXX Take Action A, since bit 6 was set 
in flag. 


PLAN.B Take Action B, since bit 6 was 
clear in flag. 


What good are flags? Let me give an example. The flag on a rural mailbox may 
be either raised or lowered to indicate that mail is or is not awaiting pickup. Raising 
and lowering those flags requires a little bit of effort (no pun intended), but it 
enables the mail carrier to complete the route much more quickly than would be 
possible if every mailbox had to be checked every time around. Presumably, this 
provides better service for everyone on the route. 

That mail carrier's routine is a very sophisticated piece of programming. If we 
think of the mail carrier as a person following a program, then we can see some of 
the power and flexibility that come from the use of flags. 

The mail carrier’s program has two parts: What must be done at the post office 
and What must be done on the route. At the post office, the mail carrier sorts the 
mail, bundles letters for the same address and puts the bundles for a given route into 
a mail sack in some order. This sorting at the post office means the mail carrier on 
the route can make his or her rounds more quickly, because no further sorting and 
searching is required. (We won’t go into sorting and searching in this book; that’s a 
volume in itself. For a helpful reference see Donald E Knuth’s Searching and 
Sorting.) 

Now comes the second part of the mail carrier's program: What must be done 
on the route. The mail carrier picks up the mail sack and leaves the post office. Driv- 
ing down country roads, the mail carrier sees a mailbox ahead. Do I have any mail 
for the people at this address? If so, the mail carrier’s mental program says, I'll slow 
down and deliver it. But what if I don't have any mail now for these people? Do I 
just keep driving? Do I go to the next address? 

Not if I want to keep my job. 

The mail carrier looks a little more closely at the mailbox. Is the flag up or 
down? If it's down, I can just drive by, but if the flag is up I must stop and pick up 
the outgoing mail. 

A flag is just a single bit of information, but by interpreting and responding to 
the state of flags, even a simple program can respond to many changing conditions. 
If your computer has 8,000 bytes of programmable memory, that means it has 
64,000 bits of memory. Conceivably, you could use most of those bits as flags, 
perhaps simulating the patterns of outgoing mail in a community of more than 
50,000 households. 

But you didn’t buy a computer to play post office. And you know enough now 
to follow the programs presented in the following chapters. These programs will in- 
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clude examples of all the instructions and programming techniques presented in this 
very fast course in assembly-language programming. The programs in the following 
chapters will also give you some tools to use in developing your own programs. 

(Incidentally, there is one 6502 instruction which doesn’t do anything at all. The 
instruction NOP performs NO operation. Why would you want to perform no 
operation? Occasionally, it’s handy to replace an unwanted instruction with a dum- 
my instruction. When you want to disable some code, simply replace the unwanted 
code with NOP’s. A NOP is represented in memory by $EA.) 
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Chapter 5: 
Screen Utilities 


Now let's consider how to display something on the video screen. On the Ap- 
ple, Atari, OSI, and PET computers, the video-display circuitry scans a particular 
bank of memory, called the display memory. Every address in the display memory 
represents, or is mapped to, a different screen location (hence the term memory- 
mapped display). For each character in the display memory, the display circuitry 
puts a particular image, or graphic, on the screen (hence the term character 
graphics). To display a character in a given screen location, you need only store that 
character in the one address within display memory that corresponds to the desired 
screen location. 

To know which address corresponds to a given screen location you must con- 
sult a display-memory map. Appendices B1 thru B4 describe how display memory is 
mapped on the Apple, Atari, OSI, and PET computers. Note that two different 
systems may have two different addresses for the same screen location. Also note 
how burdensome it can be to look up the addresses of even a few screen locations 
just to display a few characters on the video screen. 

Rather than address the screen in an absolute manner, we’d like to be able to do 
so indirectly. Ideally, we'd like a software-controlled “hand” that we can move 
about the screen. Then we could pick up the character under the hand, or place a 
new character under the hand, without being concerned with the absolute address of 
‘the screen location under the hand at the moment. Such a hand can be implemented 
quite easily as a zero-page pointer. 
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Pointers 


A pointer is just a pair of contiguous bytes in memory. Since 1 byte contains 8 
bits, a pointer contains 16 bits, which means a pointer can specify any one of more 
than 65,000 (specifically: 21¢) different addresses. 

A pointer can specify, or point to, only one address at a time. The low byte of a 
pointer contains the 8 LSB (least-significant bits) of the address it specifies, and the 
high byte of the pointer contains the 8 MSB (most-significant bits) of the address it 
specifies. 

Let’s say we want a pointer at location $1000. We must allocate 2 bytes for the 
pointer, which means it will occupy: the bytes at $1000 and $1001. $1000 will hold 
the low byte, and $1001 will hold the high byte. If we want this pointer to specify 
address $ABCD, then we may set it as follows: 


POINTR = $1000 This assembler directive equates the label 
POINTR with the value $1000. (It’s POINTR 
and not POINTER only because the assembler 
used in preparing this book chokes on labels 
longer than six characters — a common, if 
arbitrary, limitation.) 


LDA #$CD AI CD Set the 
STA POINTR 8D OO 10 low byte. 
LDA #$AB A9 AB Set the 


STA POINTR+1 8D 01 10 high byte. 


Now POINTR points to $ABCD. 

Although a pointer may be anywhere in memory, it becomes especially power- 
ful when it’s in the zero page (the address space from 0000 to $00FF). The 6502's in- 
direct addressing modes allow a zero-page pointer to specify the address on which 
certain operations may be performed. A zero-page pointer must be located in the 
zero page, but it may point to any location in memory. For example, a zero-page 
pointer may be used to specify the address in which data will be loaded or stored. 
Since display memory looks like any other random-access memory to the processor, 
we may implement our television hand as a zero-page pointer. 


TV.PTR 
We want a zero-page pointer that can point to particular screen locations. Let's 


call it TV.POINTER, or TV.PTR for short. Whenever we examine or modify the 
screen, we'll do it through the TV.PTR. 


SCREEN UTILITIES 45 


Because the TV.PTR must be in the zero page, let’s place it at $0000, meaning it 
will occupy the bytes at $0000 and at $0001. We can do that with the following 
assembler directive: 


TV.PTR = $0 


TV.PUT 


The TV.PTR always specifies the current location on the screen. Thus, to 
display a graphic at the current location on the screen, we need only load the ac- 
cumulator with the 8-bit code for that graphic and then execute the following two 
lines of code: 


LDY #0 AO 00 
STA (TV.PTR),Y 91 00 


The two lines of above code are sufficient to display a given graphic in the cur- 
rent screen location. But what if you want to display a given character in the current 
screen location? The ASCII code for a character is not necessarily the same as your 
system's display code for that character's graphic. To display an “A” in the current 
screen location, we cannot simply load the accumulator with an ASCII “A” (which 
is $41) and then execute the two lines of above code, because the graphic “A” may 
have a different display code on your system. Instead of displaying an “A,” we 
might display something else. Of the four computers considered in this book, only 
the Ohio Scientific Challenger I-P has a one-to-one correspondence between any 
character’s ASCII code and that character's graphic code. The Atari, the PET, and 
the Apple computers lack such a one-to-one correspondence, 

How then can we display a given ASCII character in the current screen loca- 
tion? We can do it by assuming that there exists a subroutine called FIXCHR, which 
will “fix” any given ASCII code, by translating it to its corresponding graphic or 
display code. FIXCHR will be different for each system, so we won't go into its 
details here (see the appendix pertaining to your computer for a description and 
listing of FXCCHR for your system). At this point we will assume only that FIXCHR 
exists, and that if we call it with an ASCII character in the accumulator, it will return 
with the corresponding display code in the accumulator. 

We already know how to display a given graphic in the current screen location. 
With FIXCHR we now know how to display any given ASCII character in the cur- 
rent screen location, And since displaying any given ASCII character in the current 
screen location is something we're likely to do more than once, let’s make it a 
subroutine. We'll call that subroutine TV.PUT since it will let us put a given ASCII 
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character up on the TV screen: 


TV.PUT JSR FIXCHR Convert ASCII character to your 
system's display code for that character. 
LDY #0 Put that graphic in the 
STA (TV.PTR), Y current screen location. 
RTS Return to caller. 


The Screen Location 


However, these examples of modifying and examining screen locations through 
the TV.PTR will work only if the TV.PTR is actually pointing at a screen location. 
Therefore, before executing code such as the examples given above, we must be sure 
the TV.PTR points to a screen location. 

There are several ways to do this. If you want to write code that will run on 
only one machine (or on several machines whose display memory is mapped the 
same way), then you can use the immediate mode to set the TV.PTR to a given 
address on the screen. Let's say you want to set the TV.PTR to point to the third col- 
umn of the fourth row (counting right and down from an origin in the upper-left cor- 
ner). If you have an Ohio Scientific Challenger I-P, then you can consult your 
system’s documentation and determine that address $D062 in display memory cor- 
responds to your desired screen location. $D0 is the high byte of this screen location; 
$62 is the low byte of this screen location. Thus, you can set TV.PTR with the 
following lines of code: . 


LDA #$62 A9 62. Set 
STA TV.PTR 85 00 low byte. 
LDA #$D0 A9 DO Set 


STA TV.PTR+1 85 01_ high byte. 


This code is fast and relocatable. But it’s not very convenient to have to look up 
a display address every time we write code that displays something on the screen. It 
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would be much more convenient if we could address the screen as a series of X and Y 
coordinates. Why not have a subroutine that sets the TV.PTR for us, provided we 
supply it with the desired X and Y coordinates? 


TVTOXY 


TVTOXY is a subroutine that sets the value of the TV.PTR to the display ad- 
dress whose X and Y coordinates are given by the X and Y registers. (Note that we 
count the columns and rows from zero.) To make the TV.PTR point to the third col- 
umn from the left in the fifth row from the top, a calling program need only include 
the following code: 


LDY #2 The leftmost column is column zero, so the third column is 
column two. 

LDY #4 The topmost row is row zero, so the fifth row is row four. 

JSR TVTOXY Set TV.PTR to screen location whose X and Y coordinates are 


given by the X and Y registers. 


How will TVTOXY work? We could have TVTOXY do just what we were 
doing: look up the desired address in a table. A computer can look up data ina table 
very quickly, but the speed may not be worth it if the table requires a lot of memory. 
If we don’t mind waiting a little longer for TVTOXY to do its job, we can have 
TVTOXY calculate the desired value of TV.PTR, rather than look it up in a table. 
But how can you calculate the address of a given X and Y location on the screen? 

You can’t do it without data. But you don’t need a large amount of data to 
determine the address of a given X,Y location in screen memory; you need only have 
access to the following facts: 


HOME The address of the character in the upper-left corner of the 
screen (ie: the lowest address in screen memory). 

ROWINC ROW INCrement: the address difference from one row to the 
next, 
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Knowing the values of HOME and ROWINC for a given system, you can 
calculate the address corresponding to any X,Y location: 


HOME Address of character in upper-left corner 
+ X Register + X coordinate 
+ (Y Register) x ROWINC + (Y coordinate) X ROWINC 


TV.PTR Address of screen location at column X, row Y. 


Run through this calculation for several screen locations and compare the 
results with the addresses you look up in the display-memory map for your system. 
(Remember that we count columns and rows from zero, not from one.) Now if 
TVTOXY can run through this calculation for us, we'll never have to look at a 
display-memory map again; we can write all our display code in terms of cartesian 
coordinates. 

But we shouldn't be satisfied with TVTOXY if it only runs through the above 
calculation. After all, what happens if TVTOXY is called and the Y register holds a 
very large number? If the Y register is greater than the number of rows on the screen, 
then the above calculation will set the TV.PTR to an address outside of display 
memory. We don’t want that. Maybe a calling program will have a bug and call 
TVTOXY with an illegal value in X or in Y. If TVTOXY doesn’t catch the error, the 
calling program may end up storing characters in memory that is not display 
memory. It might end up over-writing part of itself, which would almost certainly 
invite long and arduous debugging. 

I hate debugging. I know I’m going to make mistakes, but I’d like my software 
to catch at least some bugs before they run amuck. So let's have TVTOXY check the 
legality of X and Y before blindly calculating the value of TV.PTR. 

How can TVTOXY check the legality of X and Y? How big can X or Y get 
before it’s too big? We need some more data: 


TVCOLS The number of columns on the display screen, counting 
from zero. 

TVROWS The number of rows on the display screen, counting from 
zero, 


Now TVTOXY requires the following four facts about the host computer: 
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HOME 
ROWINC 
TVROWS 
TVCOLS 


If we store these facts about the host system in a particular block of memory, 
then TVTOXY need only consult that block of memory to learn all it needs to know 
about the screen. TVTOXY can then work as follows: 


TVTOXY 
TVTOXY SEC Is X out of range? 
CPX TVCOLS 
BCC X.OK If not, leave it alone. 
If X is out of range, give 
LDX TVCOLS it its maximum legal value. 
Now X is legal. 
X.OK SEC Is Y out of range? 
CPY TVROWS 
BCC Y.OK If not, leave it alone. 


If Y is out of range, give 
LDY TVROWS it its maximum legal value. 
Now Y is legal. 


Y.OK LDA HOME set TV.PTR = HOME. 
STA TV.PTR 
LDA HOME+1 
STA TV.PIR+1 


TXA Add X to TV.PTR. 
CLC 

ADC TV.PTR 

BCC COLSET 

INC TV.PTR+1 

CLC 


COLSET CPY #0 Add Y*ROWINC to TV.PTR. 
BEQ EXIT 

LOOP CLC 
ADC ROWINC 
BCC NEXT 
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INC TV.PTR+1 


NEXT DEY 

BNE LOOP 
EXIT STA TV.PTR 

RTS Return to caller. 
TVDOWN, TVSKIP, TVPLUS 


Using TVTOXY, we can set TV.PTR to a screen location with any desired X,Y 
coordinates. But it would also be convenient to be able to modify TV.PTR relative 
to its current value. For example, after placing a character on the screen, we might 
want to make TV.PTR point to the next screen location to the right, or perhaps to 
the screen location directly below the current screen location. We might even want 
to make TV.PTR skip over several screen locations to make it point to “the nth 
screen location from here,” where “here” is the current screen location. For these oc- 
casions, the subroutines TVDOWN, TVSKIP, and TVPLUS come in handy. 


TVDOWN, TVSKIP, TVPLUS 
TVDOWN LDA ROWINC Move TV.PTR down by one row. 
CLC . 
BCC TVPLUS Unconditionally branch. 
TVSKIP LDA #1 Skip one screen location by increment- 
ing TV.PTR. 
TVPLUS CLC Add the contents of the accumulator 
ADC TV.PTR to the two zero-page bytes 
BCC NEXT comprising the TV.PTR. 
INC TV.PTR+1 
NEXT STA TV.PTR 
RTS Return to caller. 


Note that the routines TVDOWN and TVSKIP make use of the routine 
TVPLUS, which assumes that the accumulator has been set to the number of loca- 
tions to be skipped. For TVDOWN and TVSKIP, the accumulator is set to 
ROWINC and 1, respectively. 

Right now TVPLUS might not seem long enough to be worth making into a 
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subroutine. Any program that calls TVPLUS could perform the addition itself, ata 
cost of only a few bytes, and at a saving of several machine cycles in the process. 
However, we may make TVPLUS more sophisticated later on. 

For example, we could enhance TVPLUS so it performs error checking auto- 
matically, to ensure that TV.PTR will never point to an address outside of screen 
memory. Such error checking would be very burdensome for every calling program 
to perform, but if and when we insert it into TVPLUS, every caller will auto- 
matically get the benefit of that modification. 


VUCHAR 


With TV.PUT we can display an ASCII character in the current screen location, 
and with TVSKIP we can advance to the next screen location. So why not combine 
the two, creating a subroutine that displays in the current screen location the graphic 
for a given ASCII character, and then automatically advances TV.PTR so it points 
to the next screen location? This would make it easy for a calling program to display 
a string of characters in successive screen positions. Since this subroutine will let the 
user view a character, let’s call it VUCHAR: 


VUCHAR JSR TV.PUT Display, in the current screen location, 
the graphic for the character whose 
ASCII code is in the accumulator. 
JSR TVSKIP Advance to the next screen location. 
RTS 


We could even squeeze VUCHAR into the code presented above for 
TVDOWN, TVSKIP, and TVPLUS, by inserting one new line of source code im- 
mediately above TVSKIP. (See Appendix C1, the assembler listing for the Screen 
Utilities, which also includes some error checking within TVPLUS.) 


VUBYTE 


With the screen utilities presented thus far, we can display a character on the 
screen in the current location, but we don’t have a utility to display a byte in hexa- 
decimal representation. Let’s make one. 

We'll call this utility VUBYTE, since it will let the user view a given byte. With 
VUBYTE, a calling program must take only three steps to display a byte in hexa- 
decimal representation anywhere on the screen: 
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1) Set a zero-page pointer (TV.PTR) to point to the screen location where the 
byte should be displayed; 2) load the accumulator with the byte to be displayed; and 
then 3) call VUBYTE. 


START 


WHAT HEXADECIMAL DIGIT 
CORRESPONDS TO THE 
HIGH FOUR BITS 

OF THE BYTE? 


DETERMINE THE ASCII 
CHARACTER FOR THAT 
HEXADECIMAL DIGIT 


PLACE THAT ASCII 
CHARACTER ON 
SCREEN AT THE 
CURRENT LOCATION 


WHAT HEXADECIMAL DIGIT 
CORRESPONDS TO THE LOW 
FOUR BITS OF THE BYTE? 


DETERMINE THE ASCII 
CHARACTER FOR THAT 
HEXADECIMAL DIGIT 


PLACE THAT ASCII 
CHARACTER IN NEXT 
SCREEN LOCATION 


SET TV. PTR TO POINT TO 
NEXT SCREEN LOCATION 


RETURN 


Figure 5.1: Flowchart of the routine VUBYTE, which displays a byte in hexadecimal represen- 
tation on the video screen. 
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VUBYTE will display the given byte as two ASCII characters in the current 
position on the screen, and when VUBYTE returns, TV.PTR will be pointing to the 
screen location immediately following the two screen locations occupied by the dis- 
played characters. 

VUBYTE need only determine the ASCII character for the hexadecimal value of 
the 4 MSB (most-significant bits), store that ASCII character in the screen location 
pointed to by TV.PTR, then display the ASCII character for the hexadecimal value 
of the accumulator’s 4 LSB (least-significant bits) in the next screen location. See 
figure 5.1 for a flowchart outlining this. 

VUBYTE seems to be asking for a utility subroutine to return the ASCII char- 
acter for a given 4-bit value. Let’s call this subroutine ASCII. ASCII will return the 
ASCII character for the hexadecimal value represented by the 4 least-significant bits 
in the accumulator, It will ignore the 4 most-significant bits in the accumulator. 

If we assume that ASCII exists, then we can write VUBYTE: 


VUBYTE 
VUBYTE PHA Save accumulator. 
LSR A Move 4 MSB 
LSR A into positions 
LSR A occupied by 
LSR A 4 LSB. 
JSR ASCII Determine ASCII for accumulator’s 4 


LSB (which were its 4 MSB). 

JSR VUCHAR Display the ASCII character in the cur- 
rent screen location and advance to next. 
screen location. 


PLA Restore original value of accumulator. 


JSR ASCII Determine ASCII for accumulator’s 4 
LSB (which were its 4 LSB). 


JSR VUCHAR Display this ASCII character just to the 
right of the other ASCII character and 
advance to next screen location. 


RTS Return to caller. 
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Of course, ASCII doesn’t exist yet. So let’s write it, and then VUBYTE should 
be complete. 


ASCII 
ASCII AND #$0F Clear the 4 MSB in accumulator. 
CMP #$0A Is accumulator greater than 9? 
BMI DECIML 
ADC #6 If so, it must be A thru F. Add $36 to 
accumulator to convert it to correspond- 
ing ASCII character. (We'll add $36 by 
adding $6 and then adding $30.) 
DECIML ADC #$30 If accumulator is 0 thru 9, add $30 to it 
to convert it to corresponding ASCII 
character. 
RTS Return to caller, bearing the ASCII char- 


acter corresponding to the hexadecimal 
value initially in the 4 LSB of the ac- 
cumulator, 


TVHOME, CENTER 


Now we can display a character or a byte at the current screen location, and we 
can set the current screen location to any given X,Y coordinates or modify it relative 
to its current value. It would also be handy if we could set the TV.PTR to certain 
fixed locations: locations that more than one calling program might need as points 
or origin. For example, a calling program might need to set the TV.PTR to the 
HOME location (position 0,0), or to the CENTER of the screen: 


TVHOME, CENTER 
TVHOME LDX #40 Set TV.PTR to the leftmost column 
LDY #0 of the top row 
JSR TVTOXY of the screen, 
RTS Then return to caller. 
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CENTER LDA TVROWS Load A with total rows. 
LSRA Divide it by two. 
TAY Y now holds the number of the central 
row on the screen. 


LDA TVCOLS Load A with total columns. 
LSRA Divide it by two. 
TAX X now holds the number of the central 


column on the screen, 


Now X and Y registers hold X, Y coor- 
dinates of center of screen. 


JSR TVTOXY Set the TV.PTR to X,Y coordinates. 
RTS Return to caller. 
TVPUSH, TV.POP 


The screen utilities presented thus far enable us to set or modify the current 
position on the screen. We might also want to save the current position on the screen 
and then restore that position later. We can do this by pushing TV.PTR onto the 
stack and then pulling it from the stack: 


TVPUSH 
TVPUSH PLA Pull return address from stack. 
TAX Save it in X... 
PLA 
TAY ...and in Y, 
LDA TV.PTR+1 Get TV.PTR 
PHA and save 
LDA TV.PTR it on 
PHA the stack. 
TYA Place return 
PHA address back... 
TXA 
PHA ... on stack, 
RTS Then return to caller, 
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TVPOP 


TV.POP PLA Pull return address from stack. 
TAX Save it in X... 
PLA 
TAY ...and in Y. 
PLA Restore... 
STA TV.PTR ... 1 V.PTR 
PLA from 
STA TV.PTR+1 ... stack. 
TYA Place return 
PHA address back... 
TXA 
PHA ... on stack. 
RTS Then return to caller. 


Now a calling program can save its current screen position with one line of 
source code: “JSR TVPUSH.” That calling program can then modify TV.PTR and 
later restore it to its saved value with one line of source code: “JSR TV.POP.” 


CLEAR SCREEN 


Now that we can set TV.PTR to any X,Y location on the screen, and display 
any byte or character in the current location, let’s write some code to clear all or part 
of the screen. One subroutine, CLR.TV, will clear all of the video screen for us while 
preserving the zero page, A second routine, CLR.XY, will start from the current 
screen location and clear a rectangle, whose X,Y dimensions are given by the X,Y 
registers. Thus, a calling program can call CLR.TV to clear the whole screen; or a 
calling program can clear any rectangular portion of the screen, leaving the rest of 
the screen unchanged, just by making TV.PTR point to the upper left-hand corner of 
the rectangle to be cleared, and then calling CLR.XY with the X and Y registers 
holding, respectively, the width and height of the rectangle to be cleared. 


CLR.TV JSR TVPUSH Save the zero-page bytes that will be 
changed. 
JSR TVHOME Set the screen location to upper-left cor- 


ner of the screen. 
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LDX TVCOLS 
LDY TVROWS 
JSR CLR.XY 
JSR TV.POP 


RTS 


CLR.XY STX COLS 


TYA 
TAX 


CLRROW LDA BLANK 
LDY COLS 
CLRPOS STA (TV.PTR),Y 
DEY 
BPL CLRPOS 
JSR TVDOWN 
DEX 
BPL CLRROW 


RTS 
COLS .BYTE 0 


Load X,Y registers with 

X,Y dimensions of the screen. 

Clear X columns, Y rows from current 
screen location. 

Restore zero-page bytes that were 
changed. 

Return to caller, with screen clear and 
with zero page preserved. 


Set the number of columns to be 
cleared. 


Now X holds the number of rows to be 
cleared. 

Load accumulator with your system’s 
graphic code for a blank. 

Load Y with number of columns to be 
cleared. 

Clear a position by writing a blank into 
it. 

Adjust index for next position in the 
row. 

If not done with row, clear next posi- 
tion... 

If done with row, move current screen 
location down by one row. 

Done last row yet? 

If not, clear next row... 

If so, return to caller. 

Variable: holds number of columns to 
be cleared. 


There are many more screen utilities you could develop, but the utilities pre- 
sented in this chapter are a good basic set. Now programs can call the following 
subroutines to perform the following functions: 


ASCII: Return ASCII character for 4 LSB in A. 

CENTER: Set current screen position to center of screen. 

CLR.TV: Clear the entire video display, preserving TV.PTR. 

CLR.XY: Clear a rectangle of the screen, with X,Y dimensions specified 


by the X,Y registers. 


TVDOWN: Move current screen position down by one row. 
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TVHOME: .Set current screen position to the upper-left corner of the 


screen, 
TVPLUS: Add A to TV.PTR. 
TV.POP: Restore previously saved screen position from stack. 
TVPUSH: Save current screen location on stack. 
TV.PUT: Display ASCII character in A at current screen location. 
TVSKIP: Advance to next screen location. ; 
TVTOXY: Set current screen position to X,Y coordinates given by X,Y 
registers. | 
VUBYTE: Display A, in hexadecimal form, at current screen location. 
Advance current screen location past the displayed byte. 
VUCHAR: Display A as an ASCII character in current screen location; 


then advance to next screen location. 


With these screen utilities, a calling program can drive the screen display with- 
out ever dealing directly with screen memory or even with the zero page. The calling 
program need not concern itself with anything other than the current position on the 
screen, which can be dealt with as a concept, rather than as a particular address 
hard-wired into the code. 
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Chapter 6: 
The Visible Monitor 


Hand Assembling Object Code 


An assembler is a wonderful software tool, but what if you don’t have one? Is it 
possible to write 6502 code without an assembler? 

You bet! 

Not only is it possible to write machine code by hand, but ail of the software in 
this book was originally assembled and entered into the computer by hand. In fact, I 
hand assembled my code long after I had purchased a cassette-based assembler, 
because I could hand assemble a small subroutine faster than I could load in the en- 
tire assembler. 

Hand assembling code imposes a certain discipline on the programmer. Because 
branch addresses must be calculated by counting forward or backward in hexa- 
decimal, I tried to keep my subroutines very small. (How far can you count back- 
ward in hexadecimal?) I wrote programs as many nested subroutines, which I could 
assemble and test individually, rather than as monolithic, in-line code. This is a 
good policy even for programmers who have access to an assembler, but it is essen- 
tial for any programmer who must hand assemble code. 

Yet once you've written a program consisting of machine-language instructions, 
how can you enter it into memory? You can read your program on paper, but how 
can you present it to the 6502? 

A program called a machine-language monitor allows you to examine and 
modify memory. It also allows you to execute a program stored in memory. The 
Apple and Ohio Scientific computers each feature a machine-language monitor in 
ROM (read-only memory). The Atari computers feature a machine-language 
monitor in a plug-in program cartridge. Your system’s documentation should tell 
you how to use the features of your monitor, but let’s take a closer look at one 


60 BEYOND GAMES 


monitor in particular, the Ohio Scientific 65V monitor. Because it is stored in read- 
only memory in the OSI Challenger I-P, I will refer to it as the OSI ROM monitor. 


A Minimal Machine-Language Monitor 


You can invoke the OSI ROM monitor quite easily by pressing the BREAK key 
and then the “M” key. The monitor clears the video screen and presents the display 
shown in figure 6.1. 


0000 AS 


Figure 6.1: Ohio Scientific ROM (read-only memory) monitor display. 


The display consists of two fields of hexadecimal characters: an address field 
and a data field. Figure 6.1 indicates that $A9 is the current value of address $0000. 

The OSI ROM monitor has two modes: address mode and data mode. When 
the monitor is in address mode, you can display the contents of any address simply 
by typing the address on the keyboard. Each new hexadecimal character will roll in- 
to the address field from the right. To display address $FEOD, you simply type the 
keys F, E, 0, and then D. 

To change the contents of an address, you must enter the data mode. When the 
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OSI ROM monitor is in the data mode, hexadecimal characters from the keyboard 
will roll into the data field on the screen. For your convenience, when the monitor is 
in the data mode you can step forward through memory (ie: increment the displayed 
address) by depresssing the RETURN key. Unfortunately, this convenience is not 
available in address mode, and neither mode allows you to step backward through 
memory (ie: to decrement the address field). 

Beware: the OSI ROM monitor can mislead you. If the monitor is in the data 
mode and you type a hexadecimal character on the keyboard, that character will roll 
into the data field on the screen. Presumably that hexadecimal character also rolls 
into the memory location displayed on the screen. Yet, this might not be the case. In 
fact, the OSI ROM monitor displays the data you intended to store in an address, 
rather than the actual contents of that address. If you try to store data in a read-only 
memory address, for example, the OSI ROM monitor will confirm that you've 
stored the intended data in the displayed address, yet if you actually inspect that ad- 
dress (by entering address mode and typing in the address), you'll see that you 
changed nothing. This makes sense — you can’t write to read-only memory. But the 
OSI ROM monitor leads you to think that you can. 

The OSI ROM monitor can be confusing in other ways. For example, the dis- 
play does not tell you whether you're in data mode or address mode; you've got to 
remember at all times which mode you last told the monitor to use. Furthermore, to 
escape from address mode you must use one key, while to escape from data mode 
you must use another key. Therefore you must always remember two escape codes 
as well as the current mode of the monitor. 

Furthermore, the OSI ROM monitor does not make it very easy for you to enter 
ASCII data into memory. To enter an ASCII message into memory, you must con- 
sult an ASCII table (such as Appendix A2 in this book), look up the hexadecimal re- 
presentation of each character in your message, and then enter each of those ASCII 
characters via two hexadecimal keystrokes. Then, once you've got an ASCII 
message in memory, the OSI ROM monitor won't let you read it as English text; 
you'll have to view that message as a series of bytes in hexadecimal format, and then 
look up, again in Appendix A2 or its equivalent, the ASCII characters defined by 
those bytes. That won‘t encourage you to include a lot of messages in your soft- 
ware — even though meaningful prompts and error messages can make your soft- 
ware much easier to maintain and use, 

Finally, it is worth examining the way the OS] ROM monitor executes pro- 
grams in memory. When you type “G” on the Ohio Scientific Challenger I-P, the 
OSI ROM monitor executes a JMP (unconditional jump) to the displayed address. 
That transfers control to the code selected, but it does so in such a way that the code 
must end with another unconditional jump if control is to return to the OSI ROM 
monitor. This forces you to write programs that end with a JMP, rather than 
subroutines that end with an RTS. 

Programs that end with a JMP are not used easily as building blocks for other 
programs, whereas subroutines are incorporated quite easily into software struc- 
tures of ever-greater power, So wouldn't it be nice if a machine-language monitor 
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executed a JSR to the displayed address? This would call the displayed address as a 
subroutine, encouraging users to write software as subroutines, rather than as code 
that jumps from place to place. Such a monitor might actually encourage good pro- 
gramming habits, inviting the user to program in a structured manner, rather than 
daring the user to do so. In this chapter we'll develop such a monitor. 


Objectives 


If you've spent any time using a minimal machine-language monitor, you've 
probably thought of some ways to improve it. Based on my own experience, I knew 
that I wanted a monitor to be: 


1) Accurate 
The data field should display the actual contents of the displayed address, not 
the intended contents of that address. 


2) Convenient 

It should be possible to step forward or backward through memory, in any 
mode. It should also be possible to enter ASCII characters into memory directly 
from the keyboard, without having to look up their hexadecimal representations 
first, and it should be possible to display such characters as ASCII characters, rather 
than as bytes presented as pairs of hexadecimal digits. 


3) Encourage Structured Programming 

The monitor should call the displayed address as a subroutine, rather than jump 
to the displayed address. This will encourage the user to write subroutines, rather 
than monolithic programs that jump from place to place. 


4) Simplify Debugging 

The monitor should load the 6502 registers with user-defined data before calling 
the displayed address. Thus a user can initially test a subroutine with different 
values in the registers. Then, when the called subroutine returns, the monitor should 
display the new contents of the 6502 registers. Thus, by seeing how it changes or 
preserves the values of the 6502 registers, the user could judge the performance of 
the subroutine. 

Because my objective was to make the 6502 registers visible to the user by dis- 
playing the 6502 registers before and after any subroutine call, I’ve chosen to call 
this monitor the Visible Monitor. Figure 6.2 shows its display format. 
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FIELD O 1 2 3 4 5 6 


Figure 6.2: Visible Monitor Display with fields numbered. 


VISIBLE MONITOR DISPLAY 


The Visible Monitor Display 


Notice that the display in figure 6.2 has seven fields, not two as in the OSI ROM 
monitor display. The first two fields (fields 0 and 1) are the same as the two fields in 
the OSI ROM monitor — that is, they display an address and a hexadecimal 
representation of the contents of that address. Field 2 is a graphic representation of 
the contents of the displayed address. If that address holds an ASCII character, then 
the graphic will be the letter, number, or punctuation mark specified by the byte. 
Otherwise, that graphic will probably be a special graphic character from your com- 
puter’s nonstandard (ie: nonASCII) character set. 

Fields 3 thru 6 represent four of the 6502 registers: A (the Accumulator), X (the 
X Register), Y (the Y Register), and P (the Processor Status Register). When you type 
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G to execute a program, the 6502 registers will be loaded with the displayed values 
before the program is called; when control returns to the monitor, the contents of 
the 6502 registers at that time will be displayed on the screen. | 

In addition to the seven fields mentioned above, the Visible Monitor's display 
includes an arrow pointing up at one of the fields. In order to modify a field, you 
must make the arrow point to that field. To move the arrow from one field to 
another, I’ve chosen to use the GREATER THAN (>) and LESS THAN (<) keys. 
Touching the GREATER THAN key will move the arrow one field to the right, and 
depressing the LESS THAN key will move the arrow one field to the left. (If my 
computer had a cursor pad, I would use the cursor-left and the cursor-right keys to 
move the arrow from field to field, but it doesn’t have a cursor pad, so GREATER 
THAN and LESS THAN have to fill the bill. You may assign the field-movement 
functions to any keys on your system, but GREATER THAN and LESS THAN are 
reasonable choices, because they look like arrows pointing right and left, respective- 
ly.) 

I've chosen to use the space bar to step forward through memory and the return 
key to step backward through memory, but you may choose other keys if you prefer 
(eg: the “+” and “—” keys). The space bar seems reasonable to me for stepping for- 
ward through memory, because on a typewriter I press the space bar to bring the 
next character into view; RETURN seems reasonable for stepping backward through 
memory because RETURN is almost synonymous with “back up,” and that’s what I 
want it for: to back up through memory. With such a display and key functions, we 
ought to have a very handy monitor. 


Data 


Before we develop the structure and code of the Visible Monitor, let’s decide 
what variables and pointers it must have. 

The Visible Monitor must have some way of knowing what address to display 
in field 0. It can do this by maintaining a pointer to the currently selected address, 
Because it will specify the currently selected address, let's call this pointer SELECT. 
Then, when the user presses the spacebar, the Visible Monitor need only increment 
the SELECT pointer. When the user presses RETURN, the Visible Monitor need only 
decrement the SELECT pointer. That will enable the user to step forward and back- 
ward through memory. 

The user will also want to modify the 6502 register images. Since there are four 
register images shown in figure 6.2, let's have 4 bytes, one for each register image. If 
we keep them in contiguous memory, we can refer to the block of register images as 
REGISTERS, or simply as REGS (since REGISTERS is longer than six characters, the 
maximum label length acceptable to the assembler used in the preparation of this 
book). 

Finally, the Visible Monitor must keep track of the current field. Since there can 
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only be one current field at a time, we can have a variable called FIELD, whose value 
tells us the number of the current field. Then, when the user wants to select the next 
field, the Visible Monitor need only increment FIELD, and when the user wants to 
move the arrow to the previous field, the Visible Monitor need only decrement 
FIELD. If FIELD gets out of bounds (any value that is not 0 thru 6), then the Visible 
Monitor should assign an appropriate value to FIELD. The following code declares 
these variables in the form acceptable to an OSI 6500 Assembler: 


Variables 
SELECT -WORD 0 This points to the currently selected 
byte. 
REG.A .BYTE 0 REG.A holds the image of Register A 
(the Accumulator). 
REG.X BYTE 0 REG.X holds the image of Register X. 
REG.Y BYTE 0 REG.Y holds the image of Register Y. 
REG.P BYTE 0 REG.P holds the image of the Processor 
status Register. 
FIELD BYTE 0 FIELD holds the number of the current 
field. 
REGS = REG.A 
Structure 


I want to keep the Visible Monitor highly modular, so it can be easily extended 
and modified. I have therefore chosen to develop the Visible Monitor according to 
the structure shown in figure 6.3. Clearly, the Visible Monitor loops. It places the 
monitor display on the screen. It then updates the information in that display by get- 
ting a keystroke from the user and performing an action based on that keystroke. It 


does this over and over, 
DISPLAY 


Figure 6.3: A simple structure for interactive display programs. 
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With this flowchart as a guide, we can now write the source code for the top 
level of the Visible Monitor: 


VISMON 
VISMON PHP Save caller’s status flags. 
LOOP JSR DSPLAY Put monitor display on screen. 
JSR UPDATE Get user request and handle it. 
CLC 
BCC LOOP Loop back to display... 


This is only the top level of the Visible Monitor; it won’t work without two sub- 
routines: DSPLAY and UPDATE. So it looks as if we've traded the task of writing 
one subroutine for the task of writing two. But by structuring the monitor in this 
way, we make the monitor much easier to develop, document, and debug. 

Which subroutine should we write first? Let's start with the DSPLAY module, 
since the display is visible to the user, and the Visible Monitor must meet the user's 
needs. Once we know how to drive the display, we can write the UPDATE routine. 


Monitor Display 


Figure 6.2 shows the display we want to present on the video screen. As you can 
see, this display consists of three lines of characters: the label line, the data line, and 
the arrow line. The label line labels four of the fields in the data line, using the char- 
acters A, X, Y, and P. The data line displays an address, the contents of that address 
(both in hexadecimal representation and in the form of a graphic), and then displays 
the values of the four registers in the 6502. Underneath the data line, the arrow line 
provides one arrow pointing up at one of the fields in the data line. 

Since the display is defined totally in terms of the label line, the data line, and 
the arrow line, we are ready now to diagram the top level of monitor display. See 
figure 6.4. 

With the flowchart in figure 6.4 as a guide, we can now write source code for 
the top level of the DSPLAY subroutine: 
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CLEAR PORTION 

OF SCREEN 
DISPLAY LABEL LINE 
DISPLAY DATA LINE 


DISPLAY ARROW LINE 
RETURN 


Figure 6.4: Routine to display the monitor information. 


DSPLAY 
DSPLAY JSR CLRMON Clear monitor’s portion of screen. 
JSR LINE.1 Display the Label Line. 
JSR LINE.2 Display the Data Line. 
JSR LINE.3 Display the Arrow Line. 
RTS Return to caller. 


Now instead of one subroutine (DSPLAY), it looks as if we must write four sub- 
routines: CLRMON, LINE.1, LINE.2, and LINE.3. But as the subroutines grow in 
number, they shrink in difficulty. 

Before we put up any of the monitor's display, let’s clear that portion of the 
screen used by the monitor's display. Then we can be sure we won't have any gar- 
bage cluttering up the monitor display. 

Since we already have a utility to clear X columns and Y rows from the current 
location on the screen, CLRMON can just set TV.PTR to the upper-left corner of the 
screen, load X and Y with appropriate values, and then call CLR.XY. Here’s source 
code: 


68 BEYOND GAMES 


CLRMON LDX #2 
LDY #2 

JSR TVTOXY 
LDX #25 
LDY #3 

JSR CLR.XY 
RTS 


Display Label Line 


Set TV.PTR to column 2, row 2 of 
screen. 


We'll clear 25 columns 
and 3 rows. 

Here we clear them. 
Return to caller. 


The subroutine LINE.1 must put the label line onto the screen. We'll store the 
character string “A X Y P” somewhere in memory, at a location we may refer to as 
LABELS. Then LINE.1 need only copy 10 bytes from LABELS to the appropriate 
location on the screen. That will display the LABEL line for us; ~~ 


LINE.1 LDX #13 
LDY #2 


JSR TVTOXY 


LDY #0 

STY LBLCOL 
LDA LABELS, Y 
JSR VUCHAR 
INC LBLCOL 
LDY LBLCOL 
CPY #10 

BNE LBLOOP 
RTS 

BYTE ‘A X’ 
BYTE ‘Y P’ 
BYTE 0 


LBLOOP 


LABELS 


LBLCOL 


Display Data Line 


LINE. | 


X-coordinate of Label “A”. 
Y-coordinate of Label “A”. 
Place TV.PTR at coordinates given by 
X,Y registers. 

Put labels on the screen: 
Initialize label column counter. 
Get a character and 

put its graphic on the screen. 
Prepare for next character. 
Use label column as an index. 
Done last character? 

If not, do next one. 

Return to caller. 

These are the characters 

to be copied to the screen. 
This is a counter. 


Displaying the data line will be more difficult than displaying the label line, for 
two reasons. First, the data to be displayed will change from time to time, whereas 
the labels in the label line need never change. Second, most fields in the data line dis- 
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play data in hexadecimal representation. To display 1 byte as two hexadecimal 
digits requires more work than is needed to display 1 byte as one ASCII character. 
However, we have a screen utility (VUBYTE) to do that work for us. In fact, we 
have enough screen utilities to make even the display of seven fields of data quite 
straightforward. Following, then, is the display data-line routine: 


LINE.2 
LINE.2 LDX #2 Load X register with X-coordinate for 

start of data line. 

LDY #3 Load Y register with Y-coordinate for 
data line. 

JSR TVTOXY Set TV.PTR to point to the start of the 
data line. 

LDA SELECT +1 Display high byte of the 

JSR VUBYTE currently selected address. 

LDA SELECT Display low byte of the 

JSR VUBYTE currently selected address. 

JSR TVSKIP Skip one space after address field. 

JSR GET.SL Look up value of the currently selected 
byte. 

PHA Save it. 

JSR VUBYTE Display it, in hexadecimal format, in 
field 1. 

JSR TVSKIP Skip one space after field 1. 

PLA Restore value of currently selected byte. 

JSR VUCHAR Display that byte, in graphic 
form, in field 2. 

JSR TVSKIP Skip one space after field 2. 
Display 6502 register images in fields 4 
thru 7: 

LDX #0 

VUREGS LDA REGS,X Look up the register image. 

JSR VUBYTE Display it in hexadecimal format. 

JSR TVSKIP Skip one space after hexadecimal field. 

INX Get ready for next register... 

CPX #4 Done 4 registers yet? 

BNE VUREGS If not, do next one... 

RTS If all registers displayed, return. 
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Get Currently Selected Byte 


Note that the subroutine LINE.2, which puts up the second line of the Visible 
Monitor's display, does not itself “know” the value of the currently selected byte. 
Rather, it calls a subroutine, GET.SL, which returns the contents of the address 
pointed to by SELECT. That makes life easy for LINE.2, but how does GET.SL 
work? 

If SELECT were a zero-page pointer, GET.SL could be a very simple subroutine 
and take advantage of the 6502's indirect addressing mode: 


GET.SL LDY #0 Get the zeroth byte above 
LDA (SELECT),Y the address pointed to by SELECT. 
RTS Return to caller. 


However, SELECT is not a zero-page pointer; it’s up in page $12. And the 6502 
doesn’t have an addressing mode that will let us load a register using any pointer not 
in the zero page. So how can we see what's in the address pointed to by SELECT? 

We can do it in two steps. First, we'll set a zero-page pointer equal in value to 
the SELECT pointer, so it points to the same address; and then, since we already 
know how to load the accumulator using a zero-page pointer, we'll load the ac- 
cumulator using the zero-page pointer that now equals SELECT. Let’s call that zero- 
page pointer GETPTR, since it will allow us to get the selected byte. Using such a 
strategy, GET.SL can look like this: 


GET.SL LDA SELECT Set GETPTR equal to 

STA GETPTR SELECT: first the low byte; 

LDA SELECT +1 then the 

STA GETPTR+1 high byte. 

LDY #0 Get the zeroth byte above 

LDA (SELECT),Y the address pointed to by GETPTR. 

RTS Return to caller, with A bearing the con- 
tents of the address specified by 
SELECT. 


This second attempt at GET.SL will load the accumulator with the currently 
selected byte, even when SELECT is not in the zero page. However, beware because 
by setting GETPTR equal to SELECT, GET.SL changes the value of GETPTR. This 
can be very dangerous. What, for example, if some other program were using 
GETPTR for something? That other program would be sabotaged by GET.SL’s ac- 
tions. If we let GET.SL change the value of GETPTR, then we must make sure that 
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no other program ever uses GETPTR. 

Such policing is hard work — and almost impossible if you want your software 
to run ona system in conjunction with software written by anyone else. Since I want 
the Visible Monitor to share your system’s ROM input/output routines, and since I 
have no way of knowing what zero-page addresses those routines may use, I must 
refrain from using any of those zero-page bytes myself. When I have to use zero- 
page bytes — as now, so that GET .SL can use the 6502's indirect addressing mode — 
I must restore any zero-page bytes I've changed. 

Therefore, GET.SL must be a four-part subroutine, which will: 1) save 
GETPTR; 2) set GETPTR equal to SELECT; 3) load the accumulator with the con- 
tents of the address pointed to by GETPTR; and finally, 4) restore GETPTR to its 
original value. This larger, slower, but infinitely safer version of GET.SL looks like 


this: 
GET.SL LDA GETPTR Save GETPTR 
PHA on stack and 
LDX GETPTR+1 in X register. 
LDA SELECT Set GETPTR 
STA GETPTR equal to 
LDA SELECT +1 SELECT. 
STA GETPTR+1 
LDY #0 Get the contents of the 
LDA (GETPTR),Y byte pointed to by SELECT, 
TAY and save it in Y register. 
PLA Restore GETPTR 
STA GETPTR from stack 
STX GETPTR+1 and from X register. 
TYA Restore contents of current byte from 


temporary storage in Y to A. 

RTS Return with contents of currently 
selected byte in accumulator and with 
the zero page preserved. 


Display Arrow Line 


This routine displays an up-arrow directly underneath the current field: 
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LINE.3 


LINE.3 LDX #2 Set TV.PTR to 
LDY #4 beginning of 
JSR TVTOXY arrow line. 
LDY FIELD Look up current field. 
SEC If it is out of bounds, 
CPY #7 set it to 
BCC FLD.OK default field 
LDY #0 (the address field). 
STY FIELD 
FLD.OK LDA FIELDS,Y — Look up column number for current 
field. 
TAY Use that column number as an index in- 
to the row. 


LDA ARROW Load accumulator with your system's 
graphic code for up-arrow. 

STA (TV.PTR),Y — Store up-arrow code in the Yth column 
of the arrow line. 


RTS Return to caller. 

FIELDS BYTE 3,6,8 This data area shows which column 
.BYTE $0B,$0E should get an up-arrow to indicate 
-BYTE $11,$14 any one of fields 0 thru 6. Changing one 


of these values will cause the up-arrow 
to appear in a different column when in- 
dicating a given field. 


Now that we have all the routines we need for the monitor display, let us look 
at how they fit together to form a structure. Here is the hierarchy of subroutines in 
DSPLAY: 


MONITOR DISPLAY 
DISPLAY LABEL LINE 
DISPLAY DATA LINE 
GET.SL 
VUBYTE 
ASCII 
TVPLUS 
TVSKIP 
DISPLAY ARROW LINE 
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When DSPLAY is called, it will clear the top four rows of the screen, display 
labels, data, the arrow, and then return. How long do you think it will take to do all 
this? The code may look cumbersome, but the display is quick! 


Monitor Update 


The UPDATE routine is the monitor subroutine that executes functions in 
response to various keys. The basic key functions we want to implement are as 


follows: 
Key Function 
GREATER THAN Move arrow one field to the right. 
LESS THAN Move arrow one field to the left. 
SPACEBAR Increment address being displayed. 
(Step forward through memory.) 
RETURN Decrement address being displayed. 


(Step backward through memory.) 
If the arrow is in fields 1, 3, 4, 5, or 6, then, for 


keys 0 thru 9, A thru F Roll a hexadecimal character into the field pointed 
to by the arrow. 


If the arrow is under field 2 (the graphic field) then, for 


All keys Enter the key’s character into field 2 (ie: enter the 
key’s character into the displayed address). 


Since the video display need not be refreshed (redisplayed within a given time) 
by the processor, the UPDATE routine need not return within a given amount of 
time. The UPDATE routine, therefore, can wait indefinitely for a new character 
from the keyboard, and then take appropriate action. 

We can diagram these functions as shown in figure 6.5. You add additional 
functions to this routine by adding additional code to test the input character. You 
then call the appropriate function subroutine which you write. 
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START 


Figure 6.5: Flowchart for the monitor-update routine. 


GET A CHAR- 
ACTER FROM 
KEYBOARD 
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CALL 
DISPLAYED 
ADDRESS 
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Get a Key 


First we need a way to get a key from the keyboard. J assume that your system 
has a read-only memory routine to perform this function. Place the address of that 
routine (see the appropriate appendix for your system) into a pointer called 
ROMKEY located at address $1008. Once you have set the ROMKEY pointer, you 
can get a key by calling a subroutine labeled GETKEY, which simply transfers con- 
trol to the ROM routine whose address you placed in ROMKEY: 

GETKEY JMP (ROMKEY) 

Now that we have a way to get a key from the keyboard, we should be able to 

write source code for the monitor-update routine: 


Update 
UPDATE JSR GETKEY Get a character from the keyboard. 
IF.GRTR CMP #'> Is it the GREATER THAN key? 
BNE IF.LSR If not, perform next test. 
NEXT .F INC FIELD If so, select the next field. 
LDA FIELD If arrow was at the right-most field, 
CMP #7 place it underneath the left-most 
BNE EXIT.1 field. 
LDA #0 
STA FIELD 
EXIT.1 RTS Then return. 
IF.LSR CMP #’< Is it the LESS THAN key? 
BNE IF.SP If not, perform next test. 
PREV.F DEC FIELD If so, select previous field: 
BPL EXIT.2 the field to the left of the 
LDA #6 current field. If arrow was at 
STA FIELD left-most field, place it under 
right-most field. 
EXIT.2 RTS Then return. 
IF.SP CMP #4SPACE Is it the space bar? 
BNE IF.CR If not, perform next test. 
INC.SL INC SELECT If so, step forward through 
BNE EXIT.3 memory, by incrementing the 
INC SELECT +1 pointer that specifies the displayed 
address. 
EXIT.3 RTS Then return. 
IF.CR CMP #CR Is it carriage return? 
BNE IFCHAR If not, perform next test. 
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DEC.SL 


NEXT.1 


IFCHAR 


PUT.SL 


IF.GO 


GO 


LDA SELECT 
BNE NEXT.1 
DEC SELECT +1 
DEC SELECT 
RTS 

LDX FIELD 

CPX #2 

BNE IF.GO 


TAY 


LDA TV.PTR 
PHA 
LDX TV.PTR+1 


LDA SELECT 
STA TV.PTR 
LDA SELECT +1 
STA TV.PIR+1 
TYA 


LDY #0 

OTA (TV.PTR),Y 
oTX TV.PTR+1 
PLA 

STA TV.PTR 
RTS 


RTS 

CMP #’G 
BNE IF.HEX 
LDY REG.Y 
LDX REG.X 
LDA REG.P 
PHA 

LDA REG.A 
PLP 

JSR CALLSL 


PHP 
STA REG.A 
STX REG.X 


If so, step backward through 

memory by decrementing the 

pointer that selects the 

address to be displayed. 

Then return. 

Is arrow underneath the 

character field (field 2)? 

If not, perform next test. 

Put the contents of A into the currently 
selected address. 

Use Y to hold the character we'll put in 
the selected address. 

Save zero-page pointer TV.PTR 

on stack and in X before we 

use it to put character in selected ad- 
dress. 

Set TV.PTR equal to SELECT, 

so it points to the 

currently selected 

address. 

Restore to A the character we'll put in 
the selected address. 

Store it in the 

selected address. 

Restore TV.PTR to 

its original value. 


Return to caller, with character origi- 
nally in A now in the selected address 
and with zero page unchanged. 

Then return. 

Is it ‘G' for GO? 

If not, perform next test. 

If so, load the 6502 registers 

with their displayed images. 


Call the subroutine at the selected ad- 
dress. 

When subroutine returns, 

save register values in register 
images. 
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CALLSL 


IF.HEX 


ROLLIN 


ADRFLD 
LOOP.1 


NOTADR 


ROL.SL 
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STY REG.Y 
PLA 

STA REG.P 
RTS 

JMP (SELECT) 


PHA 
JSR BINARY 


BMI OTHER 


TAY 

PLA 

TYA 

LDX FIELD 
BNE NOTADR 


LDX #3 
CLC 
ASL SELECT 


ROL SELECT +1 


DEX 

BPL LOOP.1 

TYA 

ORA SELECT 
STA SELECT 
RTS 

CPX #1 

BNE REGFLD 


AND #$0F 
PHA 

JSR GET.SL 
ASLA 
ASLA 
ASLA 
ASLA 
AND #$F0 
STA TEMP 


Then return to caller. 

Call the subroutine at the selected ad- 
dress. 

Save keyboard character. 

If accumulator holds ASCII character 
for 0 thru 9 or A thru F, BINARY 
returns the binary representation of that 
hexadecimal digit. Otherwise BINARY 
returns with A = FF and the minus flag 
set. 

If accumulator did not hold a hexa- 
decimal character, perform next test. 


Roll A into a hexadecimal field. 

Is arrow underneath the address field 
(field 0)? If not, the arrow must be 
under another hexadecimal field. 

Since arrow is underneath the address 
field, roll accumulator’s hexadecimal 
digit into the address field by rolling it 
into the pointer that selects the 
displayed address. 


Then return, 

Is arrow underneath field 1? 

If not, it must be underneath a register 
image. 

Roll A’s 4 LSB into contents 

of currently selected byte. 

Get the contents of the selected 
address and shift left 4 times. 


Save it in a temporary variable, 


PLA Get original A’s 4 LSB and 


ORA TEMP OR them with shifted contents of 
selected address. 
JSR PUT.SL Store the result in the selected 
RTS address and return. 
TEMP .BYTE 0 This byte holds the temporary variable 
used by ROL.SL. 
REGFLD DEX The arrow must be underneath a 
DEX register image — field 3, 4, 5, or 6. 
DEX 
LDY #3 
LOOP.2 CLC Roll accumulator’s hexadecimal digit 
ASL REGS,X into appropriate register image... 
DEY 
BPL LOOP.2 
ORA REGS,X 
STA REGS,X 
RTS ...Lhen return. 
OTHER PLA Restore the raw keyboard character that 
we saved on the stack, 
CMP#’Q Is it ‘QO’ for Quit? 
BNE NOT.Q If not, perform next test, 
PLA If so, return to 
PLA the caller of 
PLP 
RTS VISMON. 
NOT.Q JSR DUMMY Replace this call to DUMMY with a call 


to any other subroutine that extends the 
functionality of the Visible Monitor, 
DUMMY RTS Return to caller, 


ASCII to BINARY Conversion 


The Visible Monitor’s UPDATE subroutine requires a subroutine called 
BINARY, which will determine if the character in the accumulator is an ASCII 0 
thru 9 or A thru F, and, if so, return the binary equivalent. On the other hand, if the 
accumulator does not contain an ASCII 0 thru 9 or A thru F, BINARY will return an 
error code, $FF. Thus: 
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If accumulator holds BINARY will return 


$30 (ASCII “0”) $00 
$31 (ASCII “1”) $01 
$32 (ASCII “2”) $02 
$33 (ASCII “3”) $03 
$34 (ASCII “4”) $04 
$35 (ASCII “5”) $05 
$36 (ASCII 6”) $06 
$37 (ASCII “7’) $07 
$38 (ASCII “8”) $08 
$39 (ASCII “9”) $09 
$41 (ASCII “A”) $0A 
$42 (ASCII “B”) $0B 
$43 (ASCII “C”) $0C 
$44 (ASCII “D”) $0D 
$45 (ASCII “E”) $0E 
$46 (ASCII “F”) SOF 
Any other value $FF 


We could solve this problem with a table, BINTAB, for BINary TABle. If 
BINTAB is at address $2000, then $2000 would contain a $FF, as would $2001, 
$2002, and all addresses up to $202F, because none of the ASCII codes from $00 thru 
$2F represent any of the characters 0 thru 9 or A thru F. On the other hand, address 
$2030 would contain 00, because $30 (its offset into the table) is an ASCII zero, so 
$2030 gets its binary equivalent: $00, a binary zero. Similarly, since $31 is an ASCII 
‘1,’ address $2031 would contain a binary ‘1:’ $01. $2032 would contain a $02; $2033 
would contain a $03, and so on up to $2039, which would contain a $09. 

Addresses $203A thru $2040 would each contain $FF, because none of the 
ASCII codes from $3A thru $40 represent any of the characters 0 thru 9 or A thru F. 
On the other hand, address $2041 would contain a $0A, because $41 is an ASCII ‘A’ 
and $0A is its binary equivalent: a binary ‘A.’ By the same reasoning, $2042 would 
contain $0B; $2043 would contain $0C, and so on up to $2046, which would contain 
$0C, and so on up to $2046, which would contain $0F. Addresses $2047 thru $20FF 
would contain $FFs because none of the values $47 thru $FF is an ASCII 0 thru 9 or 
A thru F, 

To use such a table, BINARY need only be a very simple routine: 


BINARY TAY Use ASCII character as an index. 
LDA BINTAB,Y Look up entry in BINary TABle. 
RTS Return with it. 


80 BEYOND GAMES 


This is a typical example of a fast and simple table lookup code. But it requires a 
256-byte table. Perhaps slightly more elaborate code can get by with a smaller table, 
or do away altogether with the need for a table. Such code must calculate, rather 
than look up, its answers. Let’s look closely at the characters we must convert. 

Legal inputs will be in the range $30 thru $39 or the range $41 thru $46. An in- 
put in the range $30 thru $39 is an ASCII 0 thru 9, and subtracting $30 from such an 
input will convert it to the corresponding binary value. An input in the range $41 
thru $46 is an ASCII A thru F, so subtracting $36 will convert it to its corresponding 
binary value. For example, $41 (an ASCII ‘A’) minus $36 equals $0A (a binary ‘A’). 
Any value not in either of these ranges is illegal and should cause BINARY to return 
a SFP. 

Given these input/output relationships, BINARY need only determine whether 
the character in the accumulator lies in either legal range, and if so perform the ap- 
propriate subtraction, or, if the accumulator is not in a legal range, then return a 
GFF. 

Here’s some code for BINARY which makes these judgments, thus eliminating 
the need for a table: 


BINARY SEC Prepare to subtract. 
SBC #$30 Subtract $30 from character. 


BCC BAD If character was originally less than $30, 
it was bad, so return $FF. 

CMP #$0A Was character in the range $30 thru 
$397 

BCC GOOD If so, it was a good input, and we've 
already converted it to binary by sub- 
tracting $30, so we'll return now with 
the character's binary equivalent in the 
accumulator. 

SBC #7 Subtract 7. 

CMP #$10 Was character originally in the range 
$41 thru $46? 

BCS GOOD If so, it was a good input, and we've 
already converted it to binary by sub- 
tracting $37, so we'll return now with 
the character’s binary equivalent in the 
accumulator. 

BAD LDA #$FF Indicate a bad input by returning 

RTS minus, with A holding $FF. 

GOOD LDX #0 Indicate a good input by returning 

RTS plus, with A holding the character's 


binary equivalent. 
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Visible Monitor Utilities 


The Visible Monitor makes the following subroutines available to external 


callers: 


BINARY 


CALLSL 
DEC.SL 
GETKEY 


GET.SL 
GO 


INC.SL 
PUT.SL 
VISMON 


Determine whether accumulator holds the ASCII represen- 
tation for a hexadecimal digit. If so, return binary represen- 
tation for that digit. If not, return an error code ($FF). 

Call the currently selected address as a subroutine. 

Select previous address, by decrementing SELECT pointer. 
Get a character from the keyboard by calling machine's 
read-only memory routine indirectly. 

Get byte at currently selected address. 

Load registers from displayed images and call displayed ad- 
dress. Upon return, restore register images from registers. 
Select next byte (increment SELECT pointer). 

Store accumulator at currently selected address. 

Let user give the Visible Monitor commands until user 
presses ‘Q’ to quit. 


Figure 6.6 illustrates the hierarchy of the various routines of the Visible Monitor, 
some of which are detailed in later chapters. 


CLRMON 


VISIBLE MONITOR 


DISPLAY UPDATE 


LINE. 2 LINE.3 CALLIT BINARY EXTEND 


TVTOXY CLR.X¥Y TVTOXY TVTOXY VUBYTE TVPLUS TVTOXY ROMKEY 


Figure 6.6: A hierarchy of the routines of the Visible Monitor. 
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Using the Visible Monitor 


Use the minimal machine-language monitor on your computer to enter the Visi- 
ble Monitor into memory; then have your monitor pass control to the Visible 
Monitor. The Visible Monitor display should appear in the upper portion of your 
video display. If it’s not fully visible, adjust the value HOME in the screen para- 
meters (HOME is the pointer at $1000). Use the GREATER THAN and LESS — 
THAN character keys to move the arrow from field to field. Place the arrow under 
field 0 and roll hexadecimal characters into the address. Select an address in the 
lower portion of screen memory and use the Visible Monitor to place characters on 
the screen. Enter characters to the screen using both field 1 (the hexadecimal data 
field), and field 2 (the character field). 

Select the address of the TVT routine in your system. Press G to call that sub- 
routine. You should see the character in the accumulator print on the screen. Try ex- 
ploring other memory locations. Try writing to a read-only memory address. Why 
doesn’t that work? Try writing to the upper portion of the screen. Why doesn’t that 
work? 
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Chapter 7: 


Print Utilities 


The Visible Monitor is a useful tool for examining and modifying memory, but 
at the moment it’s mute: it can’t “talk” to you except through the limited device of 
the fields in its display. You can use the Visible Monitor's character entry feature to 
place ASCII characters directly into screen memory, thus putting messages on the 
screen manually. However, as yet we have no subroutines to direct a complete 
message, report, or other string of characters to the screen, to a printer, or to any 
other output device. 

Most programs require some means of directing messages to the screen, thus 
providing the user with the basis for informed interaction, or to a printer, thus pro- 
viding a record of that interaction. This chapter presents a set of print utilities to per- 
form these functions. 

Fortunately, there are subroutines in your computer's operating system to per- 
form character output. The Apple, Atari, OSI and PET computers each feature a 
routine to print a character on the screen, thus simulating a TVT (TeleVision 
Typewriter), and they each feature another routine to send a character to the device 
connected to the serial output port: usually a printer. I don’t plan to reinvent those 
wheels in this chapter. Rather, the chapter's software will funnel all character output 
through code that calls the appropriate subroutine in your computer's operating 
system. And since we're going to have code that calls the two standard character 
output routines, why not provide a hook to a user-written character output routine, 
as well? Such a feature will make it trivial for you to direct any character output (eg: 
messages, hexdumps, disassembler listings, etc) to the screen and the printer, or to 
any special output device you may have on your system, provided that you've writ- 
ten a subroutine to drive that device. 
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Selecting Output Devices 


It should be possible for any program to direct character output to the screen, 
and/or to the printer, and/or to the user-written subroutine. Therefore, we'll need 
subroutines to select and deselect (stop using) each of these devices and to select and 
deselect all of these devices. Let's call these routines TVT.ON, TVTOFF, PR.ON, 
PR.OFF, USR.ON, USR.OFF, ALL.ON, and ALLOFF. With these subroutines, a 
calling program can select or deselect output devices individually or globally. 

The line of source code which will select the TVT as an output device follows: 


JSR TVT.ON 


This line will deselect the TVT: 


JSR TVTOFF 


That’s a pretty straightforward calling sequence. 

The select and deselect subroutines will operate on three flags: TVT, PRINTR, 
and USER. The TVT flag will indicate whether the screen is selected as an output 
device; the PRINTR flag will indicate whether the printer is selected as an output 
device; and the USER flag will indicate whether the user-provided subroutine is 
selected as an output device. 

For convenience, we'll have a separate byte for each flag and define a flag as 
“off” when its value is zero, and “on” when its value is nonzero. 

Using this definition of a flag, we can select a given device simply by storing a 
nonzero value in the flag for that device; we can deselect a device simply by storing a 
zero in the flag for that device. 

The definitions for the flags and listings of the select and deselect subroutines 
follow: 


Device Flags 


OFF = 0 When a device flag = zero, that device 
is not selected. 
ON = SFF When a device flag = $FF, that device is 
selected. 
TVT BYTE ON This flag is zero if TVT is not selected; 
nonzero otherwise. Initially, the TVT is 
selected. 
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PRINTR -BYTE OFF This flag is zero if the PRINTR is not 
selected; nonzero otherwise. Initially, 
the printer is not selected. 

USER -BYTE OFF This flag is zero if the user-provided 
output subroutine is not selected; 
nonzero otherwise. Initially, the user- 
provided function is deselected, 


Select and Deselect Subroutines 


TVT.ON LDA #ON Select TVT as an output device 
STA TVT by setting the flag that indicates 
RTS the “select” state of the TVT. 
TVTOFF LDA #OFF Deselect TVT as an output device 
STA TVT by clearing the flag that indicates 
RTS the “select” state of the TVT. 
PR.ON LDA #ON Select printer as an output device 
STA PRINTR by setting the flag that indicates 
RTS the “select” state of the printer. 
PR.OFF LDA #OFF Deselect printer as an output device 
STA PRINTR by clearing the flag that indicates 
RTS the “select” state of the printer, 
USR.ON LDA #ON Select user-written subroutine as an 
STA USER output device by setting the flag that 
RTS indicates the “select” state of the output 
routine provided by the user. 
USROFF LDA #OFF Deselect user-written subroutine 
STA USER as an output device by clearing the flag 
that indicates the “select” 
RTS state of the output routine provided by 
the user. 
ALL.ON JSR TVT.ON Select all output devices by selecting 
JSR PR.ON each output device individually. 
JSR USR.ON 
RTS 
ALLOFF JSR TVTOFF Deselect all output devices by 
JSR PR.OFF deselecting each output device 
JSR USROFF individually, 
RTS 
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A General Character-Print Routine 


Now that a calling routine can select or deselect any combination of output 
devices, we need a routine that will output a given character to all currently selected 
output devices. Let's call this routine PR.CHR, because it will PRint a CHaRacter. 

All the software in this book that outputs characters will do so by calling 
PR.CHR; none of that software will call your system’s character-output routines 
directly. That makes the software in this book much easier to maintain. If you ever 
replace your system’s TVT output routine or its printer-output routine with one of 
your own, you won't have to change the rest of the software in this book, That soft- 
ware will continue to call PR.CHR. However, if many lines of code in many places 
called your system’s character-output routines directly, then replacing a read-only 
memory output routine with one of your own would require you to change many 
operands in many places. Who needs to work that hard? Funneling all character 
output through one routine, PR.CHR, means we can improve our character output 
in the future without difficulty. 

When it is called, PR.CHR will look at the TVT flag. If the TVT flag is set, it 
will call your system’s TVT output routine. Then it will look at the PRINTR flag. If 
the PRINTR flag is set, it will call your system’s routine that sends a character to the 
serial output port. Finally, it will look at the USER flag. If the USER flag is set, it will 
call the user-provided character-output routine. Having done all of this, PR.CHR 
can return. Figure 7.1 is a flowchart for PR.CHR. 


CALL SYSTEM'S 
TVT OUTPUT 
UTINE 


Figure 7.1: To print a character to all 
currently selected output devices 
(PR.CHR, a general character-output 
routine), 
CALL SYSTEM'S 
PRINTER 


OUTPUT 
ROUTINE 


CALL USER 
WRITTEN 


OUTPUT 
ROUTINE 


RETURN 
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Output Vectors 


If the character output routines are located at different addresses in different 
systems, how can PR.CHR know the addresses of the routines it must call? It can’t. 
But it can call those subroutines indirectly, through pointers that you set. 

You must set three pointers, or output vectors, so that they point to the 
character output routines in your system. A pointer called ROMTVT must point to 
your system’s TVT output routine; a pointer called ROMPRT must point to your 
system’s routine that sends a character to the serial output port; and a pointer called 
USROUT must point to your own, user-written, character-output routine. (If you 
have not written a special character-output subroutine, USROUT should point to a 
dummy routine which is nothing but an RTS instruction.) Then, if you ever relocate 
your [VT output routine, your printer-output routine, or your user-written output 
routine, you'll only have to change one output vector: ROMTVT, ROMPRT, or 
USROUT. Everything else in this book can remain the same. 

ROMTVT, ROMPRT, and USROUT need not be located anywhere near 
PR.CHR. That means we can keep all the pointers and data specific to your system 
in one place. We can store the output vectors with the screen parameters, in a single 
block of memory called SYSTEM DATA. See Appendix B1, B2, B3, or B4 for your 
computer. 

The source code of the PR.CHR routine follows: 


PR.CHR 
PR.CHR STA CHAR Save the character. 
BEQ EXIT If it’s a null, return without printing it. 
LDA TVT Is TVT selected? 
BEQ IF.PR If not, test next device. 
LDA CHAR If so, send character indirectly to 
JSR SEND.1 system's TVT output routine. 
IF.PR LDA PRINTR Is printer selected? 
BEQ IF.USR If not, test next device. 
LDA CHAR If so, send character indirectly 
JSR SEND.2 to system’s printer driver. 
IF.USR LDA USER Is user-written output subroutine 
selected? 
BEQ EXIT If not, test next device. 
LDA CHAR If so, send character indirectly 
JSR SEND.3 to user-written output subroutine. 
EXIT RTS Return to caller. 
CHAR BYTE 0 This byte holds the last character passed 


228 OCVOND GAMES 


to PR.CHR. 


Vectored Subroutine Calls 


SEND.1 JMP (ROMTVT) 
SEND.2 JMP (ROMPRT) 
SEND.3 JMP (USROUT) 


Specialized Character-Output Routines 


Given PR.CHR, a general character-output routine, we can write specific 
character-output routines to perform several commonly required functions. For ex- 
ample, it’s often necessary for a program to print a carriage return and a line feed, 
thus causing a new line, or to print a space, or to print a byte in hexadecimal format. 
Let’s develop several dedicated subroutines to perform these functions. Since each of 
these subroutines will call PR.CHR, their output will be directed to all currently 
selected output devices. 

Here are source listings for a few such subroutines: CR.LF, SPACE, and 
PR.BYT: 


PRINT A CARRIAGE RETURN-LINE FEED 


CR = $0D ASCII carriage return character. 
LF = $0A ASCII line feed character. 
CR.LF LDA 4CR Send a carriage return and a 
JSR PR.CHR line feed to the currently selected 
LDA 4LF device(s). 
JSR PR.CHR 
RTS Return. 
PRINT A SPACE 
SPACE LDA #$20 Load accumulator with ASCII space. 
JSR PR.CHR Print it to all currently selected output 
devices. 
RTS Return. 
PRINT BYTE 
PR.BYT PHA Save byte. 
LSR A Determine ASCII for the 4 MSB (most- 
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LSR A 
LSRA 

LSR A 

JSR ASCII 
JSR PR.CHR 


PLA 


JSR ASCII 
JSR PR. CHR 


RTS 


significant bits) in the 
byte: 


Print that ASCII character to the current 
device(s). 

Determine ASCII for the 4 LSB (least- 
significant bits) in the 

byte that was passed to this subroutine. 
Print that ASCII character to the current 
device(s). 

Return to caller. 


Repetitive Character Output 


Since some calling programs might need to output more than one space, a new 
line, or other character, why not have a few print utilities to perform such repetitive 
character outputs? In each case, the calling program need only load the X register 
with the desired repeat count. Then it would call SPACES to print X spaces, CR.LFS 
to print X new lines, or CHARS to print the character in the accumulator X times. 
Calling any of these routines with zero in the X register will cause no characters to be 
printed. To output seven spaces, a calling program would only have to include the 


following two lines of code: 


LDX #7 
JSR SPACES 


To output four blank lines, a program would require these two lines of code: 


LDX #4 
JSR CR.LFS 


To output ten asterisks, a program would need these three lines of code: 


LDA #’* 
LDX #10 
JSR CHARS 
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In order to support these calling sequences, we'll need three small subroutines, 
SPACES, CR.LFS, and CHARS: 


SPACES 
CHARS 
RPLOOP 


RPTEND 


CR.LFS 
CRLOOP 


END.CR 
REPEAT 


Print X Spaces; Print X Characters 


LDA #$20 
oTX REPEAT 
PHA 

LDX REPEAT 
BEQ RPTEND 
DEC REPEAT 
JSR PR.CHR 


PLA 
CLC 
BCC RPLOOP 
PLA 
RTS 


Load accumulator with ASCII space. 
Initialize the repeat counter. 

Save character to be repeated. 

Has repeat counter timed out yet? 

If so, exit. If not, 

decrement repeat counter. 

Print character to all currently selected 
output devices. 


Loop back to repeat 
character, if necessary. 
Clean up stack. 
Return to caller. 


Print X New Lines 


STX REPEAT 
LDX REPEAT 
BEQ END.CR 
DEC REPEAT 
JSR CR.LF 
CLC 

RCC CRLOOP 
RTS 

BYTE 


Initialize repeat counter. 
Exit if repeat counter has timed out. 


Decrement repeat counter. 
Print a carriage return and line feed. 
Loop back to see if done yet. 


If done, return to caller. 


This byte is used as a repeat counter by 


SPACES, CHARS, and CR.LFS. 


Print a Message 


Some calling programs might need to output messages stored at arbitrary places 
in memory. So let’s develop a subroutine, called PR.MSG, to perform this function. 
PR.MSG will print a message to all currently selected output devices. It must get 
characters from the message in a sequential manner and pass each character to 
PR.CHR, thus printing it on all currently selected output devices. 

But how can PR.MSG know where the message starts and ends? 

We could require that the message be placed in a known location, but then 
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PR.MSG would lose usefulness as it loses generality. We could require that a pointer 
in a known location be initialized so that it points to the start of the message. But 
that would still tie up the fixed 2 bytes occupied by that pointer. Or we could have a 
register specify the location of a pointer that actually points to the start of the 
message. Presumably a calling program can find some convenient 2 bytes in the zero 
page to use as a pointer, even if it must save them before it sets them. The calling 
program can set this zero-page pointer so that it points to the beginning of the 
message, and then set the X register so that it points to that zero-page pointer. Hav- 
ing done so, the calling program may call PR.MSG. Using the indexed indirect ad- 
dressing mode, PR.MSG can then get characters from the message. 

When PR.MSG has printed the entire message, it will return to its caller. 

How will PR.MSG know when it has reached the end of the message? We can 
mark the end of each message with a special character: call it ETX, for End of TeXt. 
And for reasons which will become clear in Chapter 10, A Disassembler, we'll also 
start each message with another special character: TEX, for TEXt follows. 

If we can develop PR.MSG to work from these inputs, then it won't be hard for 
a calling program to print any particular message in memory. Let's look at the re- 
quired calling sequence. 

A message, starting with a TEX and ending with an ETX, begins at some ad- 
dress. We'll call the high byte of that address MSG.HI and the low bye of that ad- 
dress MSG.LO. Thus, if the message starts at address $13A9, MSG.HI = $13 and 
MSG.LO = $A9. 

MSGPTR is some zero-page pointer. It may be anywhere in the zero page. If the 
calling program does not have to preserve MSGPTR, it can print the message to the 
screen with the following code: 


JSR TVT.ON Select TVT as an output device. (Any other currently 
selected output device will echo the screen output.) 

LDA #MSG.LO Set MSGPTR 

STA MSGPTR so it points 

LDA #MSG.HI to the start 

STA MSGPTR+1 of the message. 

LDX #4MSGPTR Set X register so it points to MSGPTR. 

JSR PR.MSG Print the message to all currently selected output 
devices. 


If the calling program must preserve MSGPTR, it will have to save MSGPTR 
and MSGPTR +1 before executing the above lines of code and restore MSGPTR and 
MSGPTR-+1 after executing the above lines of code. 

That looks like a reasonably convenient calling sequence. So now let's turn our 
attention to PR.MSG itself and develop it so it meets the demands of its callers. 
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PR.MSG 


LOOP 


NEXT 


MSGEND 


TEMP.X 


Print a Message 


STX TEMP.X 


LDX TEMP.X 


LDA (0,X) 
CMP #ETX 
BEQ MSGEND 
INC 0,X 

BNE NEXT 
INC 1,X 

JSR PR.CHR 


CLC 

BCC LOOP 
PLA 

STA 0,X 
PLA 

STA 1,X 
RTS 


-BYTE 0 


Save X register, which specifies message 
pointer. 
Save message pointer. 


Restore original value of X, so it points 
to message pointer. 

Get next character from message. 

Is it the end of message indicator? 

If so, handle the end of the message... 
If not, increment the message pointer 
so it points to the next 

character in the message. 

Send the character to all currently 
selected output devices. 

Get next character 

from message. 

Restore message pointer. 


Return to caller, with MSGPTR pre- 
served. 

This data cell is used to preserve the ini- 
tial value of X. 


Print the Following Text 


Even more convenient than PR.MSG would be a routine that doesn’t require 
the caller to set any pointer or register in order to indicate the location of a message. 
But if no pointer or register indicates the start of the message, how can any 
subroutine know where the message starts? 

It can look on the stack. 

Why not have a subroutine, called Print-the-Following, which prints the 
message that follows the call to Print-the-Following. Since Print-the-Following is 
longer than six characters, let’s shorten its name to “PRINT:”, letting the colon in 
“PRINT:” suggest the phrase “the following.” A calling program might then print 
“HELLO” with the following lines of code: 
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JSR TVT.ON Select TVT as an output device. (Other currently 
selected output devices will echo the screen output.) 


JSR PRINT: 

.BYTE TEX 

BYTE “HELLO” 

.BYTE ETX 

(6502 code follows the ETX) 


Whenever the 6502 calls a subroutine, it pushes the address of the subroutine’s 
caller onto the stack. This enables control to return to the caller when the subroutine 
ends with an RTS, because the 6502 knows it can find its return address on the stack. 
The subroutine PRINT: can take advantage of this fact by pulling its own return ad- 
dress off the stack, and using it as a pointer to the message that should be printed. 
When it reaches the end of the message, it can place a new return address on the 
stack, an address that points to the end of the message. Then PRINT: can execute an 
RTS. Control will then pass to the 6502 code immediately following the ETX at the 
end of the message. The source code for PRINT: follows: 


PRINT: PLA 
TAX 
PLA 
TAY 
JSR PUSHSL 


STX SELECT 
STY SELECT +1 
JSR INC.SL 


LOOP JSR INC.SL 


JSR GET.SL 
CMP #ETX 

BEQ ENDIT 
JSR PR.CHR 


CLC 

BCC LOOP 
ENDIT LDX SELECT 

LDY SELECT +1 


Pull return address from 
stack and save it in 
registers X and Y. 


Save the select pointer, because we're 
going to use it as a text pointer. 
Set SELECT = return address. 


Increment SELECT pointer so it points 
to TEX character. 

Increment select pointer so it points to 
the next character in the message. 

Get character. 

Is it end of message indicator? 

If so, adjust return address and return. 
If not, print the character to all current- 
ly selected devices. 

Then loop to get 

next character... 


JSR POP.SL 


Restore select pointer. to its original 
value. 

Push address 

of ETX 

onto the stack. 


Return (to byte immediately following 
ETX). 


Saving and Restoring the SELECT Pointer 


Now that a number of subroutines are accessing the contents of memory with 
the SELECT utilities (GET.SL, PUT.SL, INC.SL and DEC.SL) we should provide yet 
another pair of SELECT utilities to enable the subroutines to save and restore the 
SELECT pointer. With such save and restore functions, any subroutine can use the 
SELECT pointer to access memory, without interfering with the use of the SELECT 
pointer by other subroutines. PUSHSL will push the SELECT pointer onto the stack 
and POP.SL will pop the SELECT pointer off the stack. PUSHSL and POP.SL will 


each preserve X,Y, and the zero page. 


PUSHSL 


Save Select Pointer 
(Preserving X,Y, and the Zero Page) 


PLA 

STA RETURN 
PLA 

STA RETURN+1 
LDA SELECT +1 
PHA 

LDA SELECT 
PHA 

LDA RETURN +1 
PHA 

LDA RETURN 
PHA 

RTS 


Pull return address from stack and 
store it temporarily in RETURN. 

Push select pointer onto stack, 

Push return address back onto stack. 
Return to caller. (Caller will find select 


pointer on top of the stack.) 
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Restore Select Pointer 
(Preserving X,Y, and the Zero Page) 


POP.SL PLA Save return address temporarily. 
STA RETURN 
PLA 
STA RETURN +1 
PLA Restore select pointer from stack. 
STA SELECT 
PLA 
STA SELECT +1 
LDA RETURN+1 Place return address back on stack. 
PHA 
LDA RETURN 
PHA 
RTS Return to caller. 

RETURN .WORD 0 This pointer is used by PUSHSL and 
POP.SL to preserve their return ad- 
dresses. 

Conclusion 


With the print utilities presented in this chapter, it should be easy to write the 
character-output portions of many programs, making it possible for calling pro- 
grams to select any combination of output devices and to send individual characters, 
bytes, or complete messages to those devices. The calling programs will be com- 
pletely insulated from the particular data representations used by the print utilities. 
The calling programs do not need to know the nature or location of the output- 
device flags or the addresses of the output vectors; they need only know the ad- 
dresses of the print utilities. 

Similarly, although the print utilities use subroutines that operate on the 
SELECT pointer, the print utilities themselves never access the SELECT pointer 
directly. They are completely insulated from the nature and location of the SELECT 
pointer. As long as they know the addresses of the SELECT utilities, the print 
utilities can get the currently selected byte, select the next or the previous byte, save 
the SELECT pointer onto the stack, and restore the SELECT pointer from the stack. 
If at some point we should implement a different representation of “the currently 
selected byte,” we need only change the SELECT utilities; the print utilities, and all 
other programs which use the SELECT utilities need never change. 

Insulating blocks of code from the internal representation of data in other 
blocks of code makes all the code much easier to maintain.The following print 
utilities are available to external callers: 
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CHARS Send the character in the accumulator “X” times to all current- 
ly selected output devices. 


CR.LF Cause a new line on all currently selected devices. 

CR.LFS Cause “X” new lines on all currently selected devices. 

PR.BYT Print the byte in the accumulator, in hexadecimal representa- 
tion. 

PR.CHR Print the character in the accumulator on all currently selected 
devices. 

PR.MSG Print the message pointed to by a zero-page pointer specified 
by X. 

PRINT: Print the message following the call to “PRINT:”. 

SPACE Send a space to all currently selected output devices. 

SPACES Send “X” spaces to all currently selected output devices. 

Exercises 


1) Write a printer test program, which sends every possible character from $00 
to $FF to the printer. 


2) Rewrite the printer test program so that it prints just one character per line. 
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Chapter 8: 
Two Hexdump Tools 


The Visible Monitor allows you to examine memory, but only 1 byte at a time. 
You'll quickly feel the need for a software tool that will display or print out the con- 
tents of a whole block of memory. This is especially useful if you wish to debug a 
program. You can’t debug a program if you’re not sure what's in it. A hexdump tool 
will show you what you've actually entered into the computer, by displaying the 
contents of memory in hexadecimal form. 

I’ve developed two kinds of hexdump programs, each for a different type of 
output device. When I’m working at the keyboard, I want a hexdump routine that 
dumps from memory to the screen, a line or a group of lines at a time. But for 
documentation and for program development or debugging away from the 
keyboard, I want a hexdump routine that dumps to a printer. 

Most of the code required to dump from memory will be the same, whether we 
direct output to the screen or to the printer. However, there are enough differences 
between the two output devices that it is convenient to have two hexdump pro- 
grams, one for the screen and one for the printer. Let’s call them TVDUMP and 
PRDUMP, 


TVDUMP 


TVDUMP should be very responsive: when you are using the Visible Monitor, 
a single keystroke should cause one or more lines to be dumped to the screen. But 
how can TVDUMP know what lines you want to dump? Since the Visible Monitor 
allows you to select any address by rolling hexadecimal characters into the address 
field or by stepping forward and backward through memory, we might as well have 
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TVDUMP dump memory beginning with the currently selected address. 

Since we're basing TVDUMP on the Visible Monitor’s currently selected ad- 
dress, we can use some of the Visible Monitor's subroutines to operate on that ad- 
dress. GET.SL will get the currently selected byte, and INC.SL will increment the 
SELECT pointer, thereby selecting the next byte. The print utilities TVT.ON and 
PR.BYT will let us select the screen as an output device and print the accumulator in 
hexadecimal representation. 

We ought to have TVDUMP provide a dump that will be easily readable, even 
on the narrow confines of a twenty-five- or forty-column display. That means we 
can’t display a full hexadecimal line (16 bytes) on one screen line if we want to have 
a space between each byte. We can provide hexdumps that split each hexadecimal 
line into two screen lines. See outputs A and B in figure 8.1. 


Output A: 


0200 HH HH HH HH HH HH HH HH HH 
0208 HH HH HH HH HH HH HH HH HH 


0210 HH HH HH HH HH HH HH HH HH 
0218 HH HH HH HH HH HH HH HH HH 


-29 columns------------------------------- 
Output B: 
0200 
HH HH HH HH HH HH HH HH 
0208 
HH HH HH HH HH HH HH HH 
0210 
HH HH HH HH HH HH HH HH 
0218 


HH HH HH HH HH HH HH HH 


23 columns 


Figure 8.1: Two TVDUMP formats. 
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One way to provide such a hexdump is shown by the flowchart in figure 8.2. 
Using this flowchart as a guide, let’s develop source code to perform the TVDUMP 
function: 


START 
FORCE A NEW LINE 
FORCE A NEW LINE 


PRINT CURRENTLY 
SELECTED ADDRESS 
SPACE OR FORCE 

A NEW LINE 

(FOR OUTPUT 

A OR B) 

GET CURRENTLY 

SELECTED BYTE 
PRINT (T 


SELECT NEXT BYTE 
SPACE ONCE 


FORCE A NEW LINE 


YES 


RETURN 


Figure 8.2: Flowchart of the screen Hexdump Program. 
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CR = $0D 
LF = $0A 


GET.SL 
INC.SL 


PR.BYT 
SELECT 


COUNTR 
HEXLNS 


TVDUMP 


DUMPLN 


CONSTANTS 


Carriage return. 


Line feed, 


REQUIRED SUBROUTINES 


Get currently selected byte. 
Increment the pointer that specifies the currently selected 


byte. 


Print the accumulator to currently selected devices, in 
hexadecimal representation. 
Pointer to currently selected address. 


VARIABLES 


-BYTE 0 
.BYTE 4 


JSR TVT.ON 


LDA HEXLNS 
STA COUNTR 
LDA SELECT 
AND #$F8 
STA SELECT 
LDX #2 

JSR CR.LFS 
JSR PR.ADR 
JSR CR.LF 


This byte counts the number of lines 
dumped by TVDUMP. 

Number of hexadecimal lines to be 
dumped by TVDUMP. (Set this to any 
number you like. To dump a single 
hexadecimal line [16 bytes] , set 
HEXLNS = 1.) 


TVDUMP 


Select TVT as an output device. 
(Other devices will echo the dump.) 
Set COUNTER to the number of lines 
to-be dumped by TVDUMP. 

Set SELECT to beginning 

of a screen line (8 bytes) 

by zeroing 3 LSB in SELECT. 

Skip two lines on the screen. 


Print the selected address. 

Advance to a new line on the screen. 
(This call to CR.LF may be replaced 
with a call to SPACE on systems with 
screens more than 27 columns wide. 


This will yield the Output A rather than 
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DMPBYT 


IFDONE 


JSR SPACE 
JSR DUMPSL 
JSR INC.SL 


LDA SELECT 
AND #07 

BNE DMPBYT 
JSR CR.LF 


LDA SELECT 


AND #50F 
BNE IFDONE 
JSR CR.LF 
DEC COUNTR 
BNE DUMPLN 
JSR TVTOFF 
RTS 


Output B.) 

Print a space. 

Dump currently selected byte. 
Select next address by incrementing 
select pointer. 

Is it the beginning of a new 

screen line? (3 LSB = 07) 

If not, dump next byte... 

If so, advance to a new line on the 
screen, 

Does this address mark the beginning of 
a new hexadecimal line? 


(4 LSB of SELECT = 07) 


If so, skip a line on the screen. 
Dumped last line yet? 

If not, dump next line. 

Deselect TVT as an output device. 
Return to caller. 


DUMP CURRENTLY SELECTED BYTE 


This subroutine gets the currently selected byte (the byte pointed to by 
SELECT) and prints it in hexadecimal format on all selected devices. 


DUMPSL 


JSR GET.SL Get currently selected byte. 
JSR PR.BYT Print it in hexadecimal format. 
RTS Return to caller, 

PRINT ADDRESS 


This subroutine prints, on all selected devices, the currently selected address (ie: 
the value of the SELECT pointer). 


PR.ADR 
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LDA SELECT +1 


JSR PR.BYT 
LDA SELECT 
JSR PR.BYT 
RTS 


Get the high byte of SELECT... 
...and print it in hexadecimal format. 
Get the low. byte of SELECT... 

...and print it in hexadecimal format. 
Then return to caller, 


PRDUMP 


With the subroutine presented thus far in this chapter, we can dump to the 
screen just by calling TVDUMP. But what if we want to print a hexdump? Is a hex- 
dump program that prints any different from one that dumps to the screen? Can we 
simply select the printer instead of the TVT and leave the rest of the code the same? 

We could. But then we wouldn't be taking full advantage of the printer. 
TVDUMP produces an output that is easily read within the twenty-five or forty col- 
umns of a video display. Most printers can output sixty-four columns or more. We 
should take advantage of the extra width offered by a printer. 

We should also recognize the difference in responsiveness between a screen and 
a hard-copy device. When I’m using a screen-based hexdump, I don’t mind hitting a 
single key every time I want some lines dumped to the screen. But with a printing 
hexdump, I don’t want to strike a key repeatedly to continue the dump. I don’t mind 
striking a number of keys at the beginning in order to specify the memory to be 
dumped, but once I’ve done that I don’t want to be bothered again, I want to set it 
and forget it. 

When called, a printing hexdump program should announce itself by clearing 
the screen and displaying an appropriate title (eg: “PRINTING HEXDUMP”). Then 
it should ask you to specify the starting address and the ending address of the 
memory to be dumped. 

Once it knows what you want to dump, PRDUMP should print a hexdump of 
the specified block of memory. For your convenience, PRDUMP should tell you 
what block of memory it will dump; then it should provide a header for each column 
of data and indicate the starting address of each line of data, (See the “D” appen- 
dices.) 

Using the flowchart of figure 8.3 as a guide, we can write source code for the 
top level of the PRINTING HEXDUMP: 


START 


OUTPUT HEADER 
LINE 


CLEAR SCREEN AND 
DISPLAY TITL 


i 


SET STARTING 
ADDRESS OF MEMORY 
TO BE DUMPED 


DUMP ONE 
HEXADECIMAL LINE 


Figure 8.3: To print a Hexdump, 


SET ENDING 
ADDRESS OF MEMORY 
TO BE OUMPED 


PRINT RANGE OF MEM- 
ORY TO BE DUMPED. 


RETURN 
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PRDUMP JSR TITLE Display the title. 
JSR SETADS Let user set start address and end ad- 
dress of memory to be dumped. 
(SETADS returns with SELECT =EA, 
the end address.) 


JSR GOTOSA Set SELECT =SA, the starting address. 
JSR PR.ON Select printer as a output device. (Other 
selected devices will echo the dump.) 
JSR HEADER Output hexdump header. 
HXLOOP = JSR PRLINE Dump one line. (PRLINE returns minus 


if it dumped through ending address; 
otherwise it returns PLUS.) 


BPL HXLOOP Done yet? If not, dump next line. 

JSR CR.LF If so, go to a new line. 

JSR PR.OFF Deselect printer. 

RTS Return to caller. Specified memory has 
been dumped. 

TITLE JSR CLR.TV Clear the screen. 

JSR TVT.ON Select screen as an output device. 

JSR PRINT: Display “Printing Hexdump” on all 
selected output devices. 

-BYTE TEX Text string must start with a TEX 
character... 


-BYTE CR,‘PRINTING ’ 
-BYTE ‘HEXDUMP ‘,CR 


.BYTE LF,LF, 
.BYTE ETX ...and end with an ETX character. 
RTS Return to caller, 


Get Starting, Ending Address 


The printing hexdump program must secure from the user the starting address 
and the ending address of the memory to be dumped. The subroutine, SETADS, will 
perform these functions. It will place an appropriate prompt on the screen (“Set 
Starting Address” or “Set Ending Address”) and then allow the user to specify an ad- 
dress. 

Putting a prompt on the screen is easy: just select the TVT by calling TVT.ON, 
call “PRINT:” and follow this call with a TEX (start of text) character, the text of the 
prompt, and then an ETX (end of text) character. How can we allow the user to 
specify an address? We could make a subroutine, called GETADR, which gets an ad- 
dress by enabling the user to set some pointer. That sounds mighty familiar — that’s 
what the Visible Monitor does. Conveniently, the Visible Monitor is a subroutine, 
which returns to its caller when the user presses Q for Quit. Therefore, after putting 
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the appropriate prompt on the screen, SETADS will call the Visible Monitor. When 
the Visible Monitor returns, the SELECT pointer will specify the requested address. 


SETADS 


SET.EA 


EAHERE 


SAHERE 


JSR TVT.ON 


JSR PRINT: 
«BYTE TEX 
-BYTE CR,LF,LF 
BYTE 

-BYTE 

-BYTE ETX 

JSR VISMON 


JSR SAHERE 


JSR PRINT: 
BYTE TEX 
.BYTE CR,LF,LF 


JSR VISMON 


SEC 

LDA SELECT +1 
CMP SA+1 
BCC TOOLOW 
BNE EAHERE 


LDA SELECT 
CMP SA 

BCC TOOLOW 
LDA SELECT +1 
STA EA+1 
LDA SELECT 
STA EA 

RTS 

LDA SELECT +1 
STA SA+1 


SET STARTING ADDRESS, ENDING ADDRESS 


Select TVT as an output device. All 
other selected output devices will echo 
the screen output. 

Put prompt on the screen: 


‘SET STARTING ADDRESS ’ 
‘AND PRESS “Q".’ 


Call the Visible Monitor, so user can 
specify a given address. 

Set starting address equal to address set 
by the user. 

Put prompt on the screen: 


‘SET ENDING ADDRESS ’ 
‘AND PRESS “Q”,’ 


Call the Visible Monitor, so user can 
specify a given address. 

If user tried to set an 

ending address less than 

the starting address, 

make user do it over. 

If SELECT is greater than SA, set 
EA=SELECT. That will make EA 
greater than SA. 


Set EA=SELECT... 


... and return. 


Set SA=SELECT... 
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LDA SELECT 


STA SA 
RTS ...and return. 
TOOLOW JSR PRINT: Since user set ending address 
BYTE STX, too low, print error message: 
-BYTE CR,LF,LR 
BYTE ERROR! ' 
BYTE ‘END ADDRESS LESS ’ 
BYTE ‘THAN START ADDRESS, ’ 
BYTE ‘WHICH IS ’ 
BYTE ETX 
JSR PR.SA Print starting address. ...and let the user 
set 
JMP SET.EA the ending address again. 
SA -WORD 0 Pointer to starting address of memory to 
be dumped. 
EA .WORD $FFFF Pointer to ending address of memory to 
be dumped. 


Now that the user can set the starting address and the ending address for a hex- 
dump (or for any other program that must operate on a contiguous block of 
memory), we should have utilities that print out the starting address, the ending ad- 
dress, or the range of addresses selected by the user. If the user set $D000 as the start- 
ing address and $D333 as the ending address, we should be able to call one 
subroutine that prints “$D000,” another that prints “$D333,” and a third that prints 
“$D000 — $D333.” 

Let's call these subroutines PR.SA, to print the starting address; PR.EA, to print 
the ending address; and RANGE, to print the range of addresses. 


Print Starting Address 


The following subroutine prints the value of SA, the starting address, in hexa- 
decimal format: 


-PR.SA LDA #$ Print a dollar sign to 
JSR PR.CHR indicate hexadecimal. 
LDA SA+1 Print high byte of starting address. 
JSR PR.BYT 
LDA SA Print low byte of starting address. 
JSR PR.BYT 
RTS Return to caller. 
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Print Ending Address 


The following subroutine prints the value of EA, the ending address, in hexa- 
decimal format: 


PR.EA LDA #'$ Print a dollar sign to 
JSR PR.CHR indicate hexadecimal. 
LDA EA+1 Print high byte of ending address. 
JSR PR.BYT 
LDA EA Print low byte of ending address. 
JSR PR.BYT 
RTS Return to caller. 


Print Range of Addresses 


RANGE JSR PR.SA Print starting address. 
LDA #’— Print a hyphen. 
JSR PR.CHR 
JSR PR.EA Print ending address. 
RTS Return to caller. 
HEADER 


We want a routine to print an appropriate header for the hexdump. It should 
accomplish two tasks: identify the block it will dump, and print a hexadecimal digit 
at the top of every column of hexdump output. Thus, HEADER should produce the 
output shown between the following lines: 


DUMPING HHHH-HHHH 
0123456789 ABCODE F 


Notice the blank line following the line of hexadecimal characters. This will in- 
sure a blank line between the header and the dump itself, making for a more 
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readable output. (See the hexdumps in the D series of appendices which were pro- 


duced with PRDUMP.) 


Here are a few lines of code to print the first line of the header: 


JSR PRINT: 


BYTE TEX,CR,LF 
“BYTE ‘DUMPING ° 


-BYTE ETX 
JSR RANGE 
JSR CR.LF 


What about the rest of the header? Since all we want to do is print the hexa- 
decimal digits 0 thru $F, with appropriate spacing between them, the rest of 
HEADER can just be some code to count from 0 to $F, convert to ASCII, and print: 


PRINT HEXADECIMAL DIGITS (Version }) 


LDX 47 
JSR SPACES 
LDA 40 
STA COLUMN 
HXLOOP LDA COLUMN 
JSR ASCII 
JSR PR.CHR 
LDX 42 
JSR SPACES 
INC COLUMN 
LDA COLUMN 
AND #$F0 
BEQ HXLOOP 
LDX #2 
JSR CR.LES 
RTS 
COLUMN BYTE 0 


Print seven spaces. 


Initialize column counter 

to zero. 

Convert column counter to 

an ASCII character and 

print it. 

Space twice after the character. 


Increment the column counter. 
Loop if counter not greater 


than $OF. 


Otherwise, skip two lines 

after the header. 

Then return. 

This 1-byte variable is used to count 
from 00 to $0F. 


Version 1 of PRINT HEXADECIMAL DIGITS will work, and in only 49 bytes. 
But that’s 49 bytes of code, which among other things must count and branch, and if 
for some reason one of those bytes is wrong, Version 1 of PRINT HEXADECIMAL 
DIGITS will probably go directly into outer space. But we could write PRINT 
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HEXADECIMAL DIGITS in a much more straightforward manner, which, though 
somewhat more costly in terms of memory required, will be more readable and less 
likely to run amuck. 

PRINT HEXADECIMAL DIGITS need only call “PRINT:”, and follow this call 
with a text string consisting of the desired hexadecimal digits. 


PRINT HEXADECIMAL DIGITS (Version 2) 


JSR PRINT: 

BYTE TEX 

.BYTE ’ 0o 1 2 3 4 5 6 
BYTE 8 9 A B C D E F 
.BYTE CR,LF,LF 

.BYTE ETX 

RTS 


Version 2 of PRINT HEXADECIMAL DIGITS requires 60 bytes. But it’s more 
readable than Version 1 of PRINT HEXADECIMAL DIGITS, and it can be modified 
much more easily: just change the text in the message it prints. You don’t have to 
calculate branch addresses or test the terminal condition in a loop. This is just one 
example of a programming problem that may be solved in a computation-intensive 
or a data-intensive manner. 

Where other factors are about equal, I prefer data-intensive subroutines, 
because they're more readable and easier to change. Even in this case, I’m willing to 
pay the extra 20 bytes for a version of PRINT HEXADECIMAL DIGITS that I don’t 
have to read twice. Hence, PRINT HEXADECIMAL DIGITS Version 2, and not 
Version 1, will appear in the assembler listings of HEADER in Appendix C5. 


PRLINE 


Clearly, most of the work of PRDUMP will be performed by the subroutine 
PRLINE, which dumps one line of memory to the printer. It will stop when it has 
dumped 16 bytes (one hexadecimal line) or has dumped through the ending address 
specified by the user. 

As we did for TVDUMP, let's use SELECT as a pointer to the first byte that 
must be dumped by PRLINE. When PRLINE is called, it must see if the currently 
selected byte (the byte pointed to by SELECT) is at the start of a hexadecimal line. A 
byte is at the beginning of a hexadecimal line if the 4 LSB (least-significant bits) of its 
address are zero, Thus, $4ED8 is not the start of a hexadecimal line, but $4EDO is. 

If the currently selected byte is not the beginning of a hexadecimal line, PRLINE 
should space over to the appropriate column for that byte. If the currently selected 
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byte is at the beginning of a hexadecimal line, PRLINE should print the address of 
the currently selected byte and space twice. 

Once it has spaced over to the proper column, PRLINE need only get the cur- 
rently selected byte, print it in hexadecimal format, space once, and then do the 
same for the next byte, until it has dumped the entire line or has dumped the last 
byte requested by the user. 

Figure 8.4 gives a flowchart for the following routine: 


START 


ADVANCE PRINTHEAD 
TO A NEW LINE 


RINT SELECTED 
DDRESS 


Figure 8.4: Dump one line to the printer. 


Oo 
a 


SPACE OVER TO COLUMN 
FOR FIRST BYTE TO 
BE DUMPED 


DUMP SELECTED BYTE 


MPED 
LAST BYTE YET? 


é YES 
(SELECT = EA?) 
° 
RETURN 
MINUS 
(ENTIRE BLOCK 
DUMPED.) 
FINISHED 
LINE? YES 
(4LSB OF 
SELECT = 0?} 
P 


RETURN 
PLUS 
NO 


(LINE DUMPED; 


BLOCK NOT 
SPACE FINISHED YET) 


110 BEYOND GAMES 


PRLINE 


LOOP 


COL.OK 


NOT.EA 


EXIT 


Select Next Byte 


JSR CR.LF 
LDA SELECT 
PHA 

AND #$0F 
STA COLUMN 


PLA 

AND #$F0 
STA SELECT 
JSR PR.ADR 
LDX 43 

JSR SPACES 
LDA COLUMN 
BEQ COL.OK 
LDX #3 

JSR SPACES 
JSR INC.SL 
DEC COLUMN 
BNE LOOP 
JSR DUMPSL 
JSR SPACE 
JSR NEXTSL 


BMI EXIT 
LDA SELECT 
AND #$0F 
CMP #0 


BNE COL.OK 
RTS 


PRLINE 


Advance printhead to a new line. 
Determine starting 

column 

for this dump. ; 

Now COLUMN holds the number of the 


column in which we will dump the first 


byte. 
Set SELECT pointer to 
beginning of a hexadecimal line. 


Print the selected address. 

Space three times — to the 

first column. 

Do we dump from the first column? 

If so, we're at the correct column now. 
If not, space three 

times for each byte not 

dumped. 


Dump the currently selected byte. 
Space once. 

Select the next byte in memory, unless 
we've already dumped through the end 
address. 

(MINUS means we've dumped through 
the end address.) 

Dumped entire line? 

(4 LSB of SELECT = 07) 

If so, we've dumped the entire line. If 
not, 

select the next byte and dump it... 
PRLINE returns MINUS, with A=$FF, 
if it dumped through ending address. 
Otherwise it returns PLUS, with A=0. 


NEXTSL tests to see if SELECT is less than the ending address. If so, it in- 
crements SELECT and returns PLUS (with zero in the accumulator). If not, it 
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preserves SELECT and returns MINUS (with $FF in the accumulator). 


NEXTSL SEC 


LDA SELECT +1 


CMP EA+1 
BCC SL.OK 


BNE NO.INC 


SEC 

LDA SELECT 

CMP EA 

BCS NO.INC 
SL.OK JSR INC.SL 


LDA #0 
RTS 

NO.INC LDA #$FF 
RTS 


Go to Start of Block 


NEXTSL 


Prepare to compare. 

Is high byte of SELECT less than 

high byte of end address (EA)? 

If so, SELECT is less than EA, so it may 
be incremented. 

If SELECT is greater than EA, don’t 
increment SELECT. 

SELECT is in the same page as EA, 
prepare to compare low bytes: 

Is low byte of SELECT less than 

low byte of EA? 

If not, don’t increment it. 

Since SELECT is less than EA, we may 
increment it. 

Set “incremented” return code and 
return. 

Set “not incremented” return code 

and return. 


GOTOSA sets SELECT = SA, thus selecting the first byte in the block defined 


by SA and EA: 


GOTOSA LDASA 
STA SELECT 
LDA SA+1 


STA SELECT +1 


RTS 


Set SELECT 

equal to 

START ADDRESS 
of block. 


Now the two hexdump tools are complete. You may invoke either tool directly 
from the Visible Monitor by displaying the start address of the given hexdump tool 
and pressing “G.” This will work fine for PRDUMP: you'll get a chance to set the 
starting address and the ending address that you want to dump, and then you'll see 
the dump on both the printer and the screen. If you start TVDUMP with a “G” from 
the Visible Monitor, you'll only get a dump of TVDUMP itself. You won't be able to 
use TVDUMP to dump any other location in memory. Why? Because TVDUMP 
dumps from the displayed address, and to start any program with a “G” from the 
Visible Monitor, you must first display the starting address of that program. Prob- 
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ably you'd like to be able to use TVDUMP to dump other areas in memory. To do 
so, you must assign a Visible Monitor key (eg: “H”) to the subroutine TVDUMP, so 
that the Visible Monitor will call TVDUMP whenever you press that key. See 
Chapter 12, Extending the Visible Monitor. 
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Chapter 9: 
A Table-Driven Disassembler 


With the Visible Monitor you can enter object code into your computer. With 
hexdump tools you can dump that object code to the screen or to a printer. 
However, you still can’t be sure you've entered the instructions you intended to 
enter unless you refer back and forth from your hexdump to Appendix A4, The 6502 
Opcode List. You must verify that every opcode you entered is for the instruction 
and the addressing mode that you had intended. You must count forward or 
backward in hexadecimal to make sure that the operands in your branch instruc- 
tions are correct. If you entered one opcode or operand incorrectly, then even 
though your handwritten program may be correct, the version in your computer's 
memory will be wrong. 

A disassembler (the opposite of an assembler) can make your life a lot easier by 
displaying or printing the mnemonics represented by the opcodes you entered into 
your computer, and by showing you the actual addresses and addressing modes 
represented by your operands. The disassembler can’t know that address 0000 has 
the label “TV.PTR,” but it can let you know that a given instruction operates on ad- 
dress 0000. 

A disassembled line includes the following fields: 


Field Field 

Number Description 

1. Mnemonic. 

2. Operand. 

3. Address of opcode. 

4, Opcode in hexadecimal. 
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5. First byte of operand (if present) in hexadecimal. 
6. Second byte of operand (if present) in hexadecimal. 


Here’s a disassembled line, with each of the fields numbered: 


1 2 3 4 5 6 (Field Numbers) 


JSR 0400 08AC 20 00 04 (Disassembled Line) 


As with hexdump tools, I find it convenient to have two disassemblers: one for 
the screen and one for the printer. The screen-oriented disassembler should direct a 
certain number of disassembled lines to the screen whenever it is called. On the other 
hand, the printing disassembler should get a starting address and an ending address 
from the user and print a continuous disassembly of that portion of memory. As 
before, when I direct output to a printer I want to set it and forget it. 

Whether we disassemble to the screen or to a printer, we will disassemble one 
line at a time. How can a program disassémble a line? The same way a person does. 
You look at an opcode in memory and then consult a table such as Appendix A4 to 
determine the operation represented by that opcode. Each operation has two at- 
tributes, a mnemonic and an addressing mode. The procedure is simple. Write the 
mnemonic; then, from the addressing mode determine whether this opcode takes no 
operand, a 1-byte operand, or a 2-byte operand. If it takes an operand, look at the 
next byte or two in memory and then write the operand for the mnemonic. 

Thus, if you wish to disassemble object code from some place in memory, and 
you find an $8D at that location, you can determine from Appendix A6é that $8D 
represents “store accumulator, absolute mode.” Therefore, you'll write: “STA,” 
which is the mnemonic for store the accumulator. 

The absolute mode requires a 2-byte operand, so you'll look at the 2 bytes 
following the $8D. If $36 follows the $8D and is itself followed by $D0, then the 
disassembled line will look like this: 


STA $D036 
That’s a lot easier to read than the original 3 bytes of object code: 


8D 36 DO 


A TABLE-DRIVEN DISASSEMBLER 115 


DISASSEMBLY 


JSR 0400 1EOO 8.20 00 04 

JSR 04A0 1E03 =. 20 AO 04 

LDA = (0021),Y 1E06 —s BI 21 

CLC 1E08 18 

BCC 1E00 1E09 (90 FS 
HEXDUMP 


O123 45 67 89 AB CODE F 


1E00 20 00 04 20 AO 04 Bl 21 18 90 F5 


Figure 9.1: Disassembly and hexdump of the same object code. 


TO DISASSEMBLE ONE LINE: 


GET OPCODE 
WRITE OOWN 
ITS MNEMONIC 
LOOK UP ITS 
ADDRESSING MODE ~ 
WRITE DOWN 
ITS OPERAND 
FINISH THE LINE 
BY WRITING, IN HEX, 


THE BYTE(S} 
WE JUST OISASSEMBLED 


RETURN 


Figure 9.2: Algorithm for disassembling one line of code. 
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That looks pretty simple. We can use the SELECT pointer to indicate the cur- 
rent byte within memory, and we'll assume that lower-level subroutines exist or will 
exist to do the jobs required by DSLINE, which disassembles one line. With those 
assumptions, we can write source code for DSLINE: 


DISASSEMBLE ONE LINE 


DSLINE JSR GET.SL Get currently selected byte. 

PHA Save it on stack. 

JSR MNEMON Print the mnemonic represented by that 
opcode. 

JSR SPACE Space once. 

PLA Restore opcode to accumulator. 

JSR OPERND Print the operand required by that op- 
code. 

JSR FINISH Finish the line by printing fields 3 thru 
6. 

JSR NEXTSL Select next byte. 

RTS Return to caller, with SELECT pointing 


at the last byte of the operand (or at the 
opcode, if it was a 1-byte instruction). 


Print Mnemonic 


We need a subroutine called MNEMON which prints the three-letter mnemonic 
for a given opcode. How can MNEMON do this? How do we do it? We look it up in 
a table such as Appendix A4. We could have a similar table in memory and then 
have MNEMON sequentially look up from the table the three characters comprising 
the desired mnemonic. That would require a 3-byte mnemonic for each of 256 possi- 
ble opcodes: a 758-byte table. That’s a lot of memory! Perhaps if we organize our 
data better we'll need less memory. 

For example, why include the same mnemonic more than once in the table? 
Eight different opcodes use the mnemonic LDA; why should I use up 24 bytes to 
store “LDA” eight times? We could have a table of mnemonic names, which is 
nothing more than an alphabetical list of the three-letter mnemonics. There are only 
fifty-six different mnemonics; if we add one pseudo-mnemonic, “BAD,” to mean 
that a given opcode is not valid, then we still have only fifty-seven mnemonics. The 
table of mnemonic names will therefore require only 171 bytes. 

If you have a given opcode, how can you know which mnemonic in the table of 
mnemonic names corresponds to your opcode? A mnemonic code is some number 
that uniquely identifies a given mnemonic. Let’s assume that we have a table of 
mnemonic codes which gives the mnemonic code for each possible opcode. 
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Now you can look up in the table of mnemonic codes the mnemonic code cor- 
responding to a given opcode, and then use the mnemonic code as an index to the 
table of mnemonic names. The three sequential characters located in the table of 
mnemonic names will comprise the mnemonic for your original opcode. 

This method requires not one but two tables. The two together, however, re- 
quire considerably less memory than our first table did. The table of mnemonic 
codes will be 256-bytes long, since it must have an entry for every possible opcode, 
including invalid ones. The table of mnemonic names, on the other hand, will be 
only 171-bytes long, so the two tables together require only 427 bytes. That's 331 
bytes or 43 percent less memory than our first table required. 

Space saved in tables may not be worth it if large or complicated code is re- 
quired as an index to those tables, but in this case the code is quite simple: 


MNEMON LDX 43 There are three letters in a mnemonic. 
STX LETTER We'll keep track of the letters by count- 
ing down to zero. 
TAX Prepare to use the opcode as an index. 


LDA MCODES,X Look up the mnemonic code for that op- 
code. (MCODES is the table of 


mnemonic codes.) 


TAX Prepare to use that mnemonic code as 
an index. 
MNLOOP LDA MNAMES,X Get a mnemonic character. (MNAMES 
is the list of mnemonic names.) 
STX TEMP.X Save X register (since printing will 
almost certainly change the X register). 
JSR PR.CHR Print the character to all currently 
selected devices. 
LDX TEMP.X Restore X register to its previous value. 
INX Adjust index for next letter. 
DEC LETTER If three letters not yet printed, 
BNE MNLOOP loop back to handle the next one. 
RTS Otherwise, return to caller. 
TEMP.X .BYTE 0 
LETTER BYTE 0 


As you can see, MNEMON requires only 30 bytes of code in machine language: 
2 bytes to hold variables and 427 bytes for the two tables (MNAMES and 
MCODES). The entire subroutine requires 459 bytes, but since most of those bytes 
are data in tables, comparatively little can go wrong with the program. If the wrong 
bytes are keyed into the table of mnemonic names, then the disassembler will print 
one or more incorrect characters in a mnemonic. But MNEMON won't crash! Bad 
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data in means bad data out, but at least MNEMON will run, and a running program 
is a lot easier to correct than one that crashes and burns. 

So again we have a data-intensive, rather than a computation-intensive, 
subroutine. The tables required by MNEMON are included in Appendix C8. 


Print Operand 


Now we come to the tricky part: printing the right operand given an opcode at 
some location in memory. When I disassemble object code by hand, I write the 
operand in two steps: first I determine the addressing mode of the given opcode, and 
then, if that addressing mode takes an operand, I write down the proper operand in 
the proper form. Proper form means including a comma and an X or a Y for every 
indexed instruction, including parentheses in the proper places for indirect instruc- 
tions, and printing out all addresses high byte first, since that makes it easier to read 
an address. 

OPERND (the subroutine that prints an operand for a given opcode in a given 
location in memory) will therefore determine the addressing mode for a given op- 
code, and then call an appropriate subroutine to handle that addressing mode: 


OPERND 
OPERND TAX Look up addressing mode code for 
LDA MODES,X this opcode. 
TAX X now indicates the addressing mode. 
JSR MODE.X Call the subroutine that handles address- 
ing mode “X.” 
RTS Return to caller. 


MODES is a table giving the addressing mode for each opcode. 

Note that OPERND can work only if we have a routine called MODE.X which 
somehow transfers control to the subroutine that handles addressing mode “X.” 
How can MODE.X do this? One way is to have a table of pointers, in which the Xth 
pointer points to the subroutine that handles addressing mode “X.” MODE.X must 
then transfer control to the Xth subroutine in this table. It would be nice if the 6502 
offered an indexed JSR instruction, which would call the subroutine whose address 
is the Xth entry in the table. Unfortunately, the 6502 doesn’t offer an indexed JSR in- 
struction, so we'll have to simulate one in software. 

Fortunately, the 6502 does offer an indirect JMP. If a pointer, called SUBPTR, 
can be made to point to a given subroutine, then the instruction JMP (SUBPTR) will 
transfer control to that subroutine. Therefore, MODE.X need only set SUBPTR 
equal to the Xth pointer in a table of subroutine pointers, and with the instruction 
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JMP (SUBPTR), it can transfer control to the Xth subroutine in the table. 


HANDLE ADDRESSING MODE “X” 


MODE.X LDA SUBS,X 
STA SUBPTR 
INX 
LDA SUBS,X 


STA SUBPTR+1 
JMP (SUBPTR) 


SUBS 


Disassembler Utilities 


Get low byte of Xth pointer in the table 
of subroutine pointers. 

set low byte of subroutine pointer. 
Adjust index to get next byte. 

Get high byte of Xth pointer in the table 
of subroutine pointers. 

Set high byte of subroutine pointer. 
Jump to the subroutine specified by the 
subroutine pointer, That subroutine will 
then return to the caller of MODE.X, 
not to MODE.X itself. 

This is a table of pointers, in which the 
Xth pointer points to the subroutine tha 
handles addressing mode X. 


Given MODE.X, OPERND can call the right subroutine to handle any give 
addressing mode. Now all we need are thirteen different subroutines, one for each c 


the 6502's different addressing modes. 


Before writing those subroutines, however, let’s think for a moment about whé 
they must do, and see if we can’t write a few utility subroutines to perform thos 
functions. With a proper set of utilities, the addressing mode subroutines themselves 
need only call the right utilities in the right order. 

The following set of utilities seems reasonable: 


@ ONEBYT: Print a 1-byte operand. 

@ TWORYT: Print a 2-byte operand. 

@ RPAREN: Print a right parenthesis. 

@ LPAREN: Print a left parenthesis. 

@® XINDEX: Print a comma and then the letter “X.” 
@ YINDEX: Print a comma and then the letter “Y.” 
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Print a 1-Byte Operand: ONEBYT 


ONEBYT JSR INC.SL Advance to byte following opcode. 
JSR DUMPSL Print it in hexadecimal. 
RTS Return to caller. 


Print a 2-Byte Operand: TWOBYT 


A 2-byte operand always specifies an address with the low byte first. To print a 
2-byte operand high byte first, we must first print the second byte in the operand 
and then print the first byte in the operand; each, of course, in hexadecimal format. 


TWOBYT JSR INC.SL Advance to first byte of operand. 
LDA GET.SL Load that byte into accumulator, 
PHA Save it. 
JSR INC.SL Advance to second byte of operand. 
JSR DUMPSL Print it in hexadecimal format. 
PLA Restore the operand’s first byte to the 
JSR PR.BYT accumulator, and print it in hexa- 

decimal. 

RTS Return to caller, 


ONEBYT and TWOBYT each leave SELECT pointing at the last byte of the 
operand. 


Print Right, Left Parenthesis: RPAREN, LPAREN 


RPAREN prints a right parenthesis to all currently selected devices. LPAREN 
prints a left parenthesis to all currently selected devices. 


RPAREN LDA #’) Load accumulator with ASCII code for 
right parenthesis. 
BNE SENDIT Send it to all currently selected devices. 
LPAREN LDA #( Load accumulator with ASCII code for 
left parenthesis. 
SENDIT JSR PR.CHR Send it to all currently selected devices. 
RTS Return to caller, 
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Index with Register X: XINDEX 


XINDEX prints a comma and then the letter “X:” 


XINDEX LDA #,, 


JSR PR.CHR 
LDA #'X 


JSR PR.CHR 
RTS 


Index with Register Y: YINDEX 


Load accumulator with ASCII code for a 
comma; then print it to 

all currently selected devices. 

Load accumulator with ASCII code for 
the letter “X;” then print it 

to all currently selected devices. 

Return to caller. 


YINDEX prints a comma and then the letter “Y:” 


YINDEX LDA #', 


JSR PR.CHR 
LDA #Y 


JSR PR.CHR 
RTS 


Load accumulator with ASCII code for a 
comma; then print it to all 

currently selected devices. 

Load accumulator with ASCII code for 
the letter “Y;” then print it 

to all currently selected devices. 

Return to caller. 


So much for the disassembler utilities. Now with a single subroutine call we can 
print a 1-byte or a 2-byte operand (and, of course, we can print a no-byte operand), 
and we can print any of the frequently used characters and character combinations. 
Okay, let’s write some addressing mode subroutines: 


Addressing Mode Subroutines 


Because the 6502 has thirteen different addressing modes, we'll need thirteen 


different addressing mode subroutines: 


Subroutine 


ABSLUT 
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Addressing Mode 


Absolute 


ABS.X Absolute,X 


ABS.Y Absolute, Y 
ACC Accumulator 
IMPLID Implied 
IMMEDT Immediate 
INDRCT Indirect 
IND.X Indirect,X 
IND. Y Indirect, Y 
RELATV Relative 
ZEROPG Zero Page 
ZERO.X Zero Page,X 
ZERO.Y Zero Page, Y 


The main job for each subroutine will be to print the operand in the proper 
form. Although a given addressing mode will always have the same number of 
characters in its operand, unfortunately, different addressing modes may have 
operands of different lengths. For example, implied addressing mode has no 
characters in its operand, whereas indirect indexed addressing requires eight 
characters in its operand, if leading zeros are included. 

But no matter how many characters appear in an operand, we want to make 
sure that field 3 (the address field) always begins at the same column. Therefore, 
every addressing-mode subroutine will return with A holding the number of 
characters in the operand, with X holding the number of bytes in the operand, and 
with SELECT pointing at the last byte in the operand (or at the opcode, if it was a 
1-byte instruction), Then FINISH can print an appropriate number of spaces before 
printing fields 3 thru 6. 


Absolute Mode: ABSLUT 


To print the operand for an instruction in the absolute mode, we need only 
print a 2-byte operand. Thus, 8D B2 04 will disassemble as: 


STA 04B2 8D B2 04 


ABSLUT JSR TWOBYT 
LDX #2 X holds number of bytes in operand. 
LDA #4 A holds number of characters in 
operand. 
RTS 
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Absolute, X Mode: ABS.X 


To print the operand for an instruction in the absolute, X mode, we must printa 
2-byte operand, a comma, and then an “X;” 


LDA DO9A,X BD 9A DO 


ABS.X JSR ABSLUT Print the 2-byte operand. 
JSR XINDEX Print the comma and the “X.” 
LDX #2 X holds number of bytes in operand. 
LDA #6 A holds number of characters in 
operand. 
RTS Return to caller. 


Abolute, Y Mode: ABS.Y 


To print the operand for an instruction in the absolute, Y mode, we must print a 
2-byte operand, a comma, and thena “Y:” 


ORA 02FE,Y 19 FE 02 


ABS.Y JSR ABSLUT Print the 2-byte operand, 
JSR YINDEX Print the comma and the “Y.” 
LDX #2 X holds number of bytes in operand. 
LDA #6 A holds number of characters in 
operand. 
RTS Return to caller. 


Accumulator Mode: ACC 


To print the operand for an instruction in the accumulator mode, we need only 
print the letter “A:” 


ROR A 6A 
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ACC 


LDA #'A 
JSR PR.CHR 
LDX #0 
LDA #1 


RTS 


Implied Mode: IMPLID 


Load accumulator with ASCII code for 
the letter A. 

Print it on all currently selected devices. 
X holds number of bytes in operand. 

A holds number of characters in 
operand. 

Return to caller. 


Implied mode has no operand, so just return: 


IMPLID 


LDX 40 
LDA #0 


RTS 


Immediate Mode: IMMEDT 


CLC 18 


X holds number of bytes in operand. 
A holds number of characters in 
operand. 


Immediate mode requires a 1-byte operand, which we'll print in hexadecimal 
format. Thus, it should disassemble the two consecutive bytes “A9 41” as follows: 


IMMEDT 


LDA #$41 A941 


LDA #'# 
JSR PR.CHR 
LDA #'$ 

JSR PR.CHR 
JSR ONEBYT 


LDX #1 
LDA #4 


RTS 


Print a ‘#’ sign. 
Print a dollar sign. 


Print 1-byte operand in hexadecimal for- 
mat. 

X holds number of bytes in operand. 

A holds number of characters in 
operand. 

Return to caller. 


A TABLE-DRIVEN DISASSEMBLER 125 


Indirect Mode: INDRCT 
To print the operand for an instruction in the indirect mode, we need only print 


an absolute operand within parentheses. Thus, the three consecutive bytes 
“6C 00 04” will disassemble as: 


JMP (0400) 6C 00 04 


INDRCT JSR LPAREN Print left parenthesis. 
JSR ABSLUT Print the 2-byte operand. 
JSR RPAREN Print the right parenthesis. 
LDX #2 X holds number of bytes in operand. 
LDA #6 A holds number of characters in 
operand. 
RTS Return to caller. 


Indirect, X Mode: IND.X 


To print the operand for an instruction in the indirect, X addressing mode, we 
need to print a left parenthesis, a zero-page address, a comma, the letter “X,” and 
then a right parenthesis. Thus, the two consecutive bytes “A1 3C” will disassemble 


as: 
LDA (3C,X) A13C 
IND.X JSR LPAREN Print a left parenthesis. 
JSR ZERO.X Print a zero-page address, a comma, and 
the letter “X.” 
JSR RPAREN Print a right parenthesis. 
LDX #1 X holds number of bytes in operand. 
LDA #8 A holds number of characters in 
operand. 
RTS Return to caller, 
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Indirect, Y Mode: IND.Y 
To print the operand for an instruction in the indirect, Y mode, we must print a 


left parenthesis, a zero-page address, a right parenthesis, a comma, and then the let- 
ter “Y.” Thus, the two consecutive bytes “B1 AF” will disassemble as: 


LDA (AF),Y B1 AF 


IND.Y JSR LPAREN Print a left parenthesis. 
JSR ZEROPG Print a zero-page address, 
JSR RPAREN Print a right parenthesis. 
JSR YINDEX Print a comma and then the letter “Y.” 
LDX #1 X holds number of bytes in operand, 
LDA #8 A holds number of characters in 

operand. 

RTS Return to caller, 

Relative Mode: RELATV 


Relative mode can be tricky. A relative branch instruction specifies a forward 
branch if its operand is plus (in the range of 00 to $7F), but it specifies a backward 
branch if its operand is minus (in the range of $80 to $FF). Therefore, in order to 
determine the address specified by a relative branch instruction, we must first deter- 
mine whether the operand is plus or minus, so we can determine whether we're 
branching forward or backward. Then we must add or subtract the least-significant 
7 bits of the operand to or from the address immediately following the operand of 
the branch instruction; the result of that calculation will be the actual address 
specified by the branch instruction, 


RELATV JSR INC.SL Select next byte in memory. 
JSR PUSHSL Save SELECT pointer on stack, 
JSR GET,SL Get operand byte. 
PHA Save it on the stack, 
JSR INC.SL Increment SELECT pointer so it points 


to the opcode following the relative 
branch instruction, (Relative branches 
are relative to the next opcode.) 
PLA Restore operand byte to accumulator. 
CMP #0 Is it plus or minus? 
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FORWRD 


RELEND 


BPL FORWRD 


DEC SELECT +1 


CLC 

ADC SELECT 
BCC RELEND 
INC SELECT +1 
STA SELECT 


JSR PR.ADR 
JSR POP.SL 
LDX #1 
LDA #4 


RTS 


Zero-Page Mode: ZEROPG 


If plus, it means a forward branch. 
Since operand byte is minus, we'll be 
branching backward. 

Branching backward is like branching 
forward from a location 256 bytes lower 
in memory. 

Add operand byte to the address 

of the opcode following the 

branch instruction. 


Now SELECT points to the address 
specified by the operand of the relative 
branch instruction. Let's print it. 


Restore SELECT pointer. 

X holds number of bytes in operand. 

A holds number of characters in 
operand. 

Return to caller, with SELECT pointer 
once again pointing to the operand byte 
of the relative branch instruction. 


To print the operand of an instruction that uses the zero-page addressing mode, 


we could simply print a 1-byte operand. But I find listings more readable when all 
zero-page addresses are shown with the leading zeros (eg: “OOFE” rather than “FE” 
to represent address $00FE). Therefore, let’s print all zero-page operands with a 
leading zero. That simply requires us to print two ASCII zeros and then to print the 
1-byte operand. This will cause the bytes “85 2A” to be disassembled as: 


ZEROPG 
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STA 002A 85 2A 


LDA 40 

JSR PR.BYT 
JSR ONEBYT 
LDX #1 

LDA #4 


RTS 


Print two ASCII zeroes to all 
currently selected devices. 

Print the 1-byte operand. 

X holds number of bytes in operand. 
A holds number of characters in 
operand. 

Return to caller. 


Zero-Page Indexed Modes: ZERO.X, ZERO.Y 


_To print the operand of an instruction that uses the zero-page X or zero-page Y 
addressing mode, we need only print the zero-page address, a comma, and then an 
“X” ora “Y.” Thus, “B5 6C” will disassemble as: 


LDA 006C,X B5 6C 
and “B6 53” will disassemble as: 


LDX 0053,Y Bé6 53 


ZERO.X JSR ZEROPG Print the zero-page address. 
JSR XINDEX Print a comma and the letter “X.” 
LDX #1 X holds number of bytes in operand. 
LDA #6 A holds number of characters in 
operand, 
RTS Return to caller. 
ZERO.Y JSR ZEROPG Print the zero-page address. 
JSR YINDEX Print a comma and the letter “Y.” 
LDX #1 X holds number of bytes in operand. 
LDA #6 A holds number of characters in 
operand. 
RTS Return to caller. 


A Pseudo-Addressing Mode for Embedded Text 


Now we have subroutines to disassemble machine code in any of the 6502's 
thirteen legal addressing modes. But what about text embedded in a machine- 
language program? We know that our programs already include text strings, where 
each text string begins with a TEX character ($7F) and ends with an ETX ($FF). The 
disassembler, however, doesn’t know anything about embedded text. If we try to 
disassemble a machine-language program that includes embedded text, the 
disassembler will assume that the TEX character, and the text string itself, are 6502 
opcodes and operands; because it doesn’t know about text, it will misinterpret the 
text string. 

Wouldn't it be nice if the disassembler could recognize the TEX character for 
what it is, and then print out the text string as text, rather than as opcodes and 
operands? When it has finished printing a text string, the disassembler could then 
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resume treating the bytes following the ETX as conventional 6502 opcodes and 
operands. 

Such behavior is not hard to implement. We need only define a pseudo- 
addressing mode, called TEXT mode, and say that the TEX character is the only op- 
code that has the TEXT addressing mode. Then we'll write a special addressing mode 
subroutine, called TXMODE, to print operands that are in the TEXT mode. 
TXMODE will print an operand in the TEXT mode by printing the text that follows 
the TEX character and ends with the first ETX character. 

Here’s some source code to implement such behavior: 


TXMODE PLA Pop return address 
PLA to OPERND. 
PLA Pop return address 
PLA to DSLINE. 
TXLOOP JSR NEXTSL Advance past TEX pseudo-opcede. 
BMI TXEXIT Return if reached EA. 
JSR GET.SL Get the character. 
CMP #ETX Is it the end of the text string? 
BEQ TXEXIT If so, we've finished disassembling this 
line. 
JSR PR.CHR If not, print the character. 
CLC Branch back to get 
BCC TXLOOP the next character. 
TXEXIT JSR CR.LF Advance to a new line. 
JSR NEXTSL Advance to next opcode (if SELECT is 
less than EA). 
RTS Return to the caller of DSLINE, with 


SELECT at the first opcode following 
the text string. 


Now that we have the desired addressing mode subroutines, we can make up 
the table of addressing mode subroutines: 


SUBS .WORD ABSLUT 
-WORD ABS.X 
-WORD ABS.Y 
-WORD ACC 
-WORD IMPLID 
.WORD IMMEDT 
-WORD INDRCT 
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-WORD IND.X 
.WORD IND.Y 
-WORD RELATV 
-WORD ZEROPG 
.WORD ZERO.X 
.WORD ZERO.Y 


Each addressing mode subroutine will return with SELECT pointing at the last 
byte in the instruction, with A holding the number of characters in the operand 
field, and with X holding the number of bytes in the operand (0, 1, or 2). Each ad- 
dressing mode subroutine will return to OPERND, which will finish the line by call- 
ing FINISH. 


Finishing the Line: FINISH 


FINISH must space over to the proper column for field 3, which will hold the 
address of the opcode. Then it must print the address of the opcode and dump 1, 2 or 
3 bytes, as necessary. FINISH will end by advancing the printhead to a new line and 
by advancing SELECT so that it points to the first byte following the disassembled 
line (unless it has disassembled through EA, the ending address, in which case it will 
return with SELECT = EA). FINISH returns PLUS if more bytes must be 
disassembled before EA is reached; it returns MINUS if it disassembled through EA. 


FINISH STA OPCHRS Save the length of the operand, 
STX OPBYTS in characters and in bytes. 
DEX If necessary, decrement the 
BMI SEL.OK SELECT pointer so it 
LOOP.1 JSR DEC.SL points to the opcode. 
DEX 
BPL LOOP.1 
SEL.OK SEC Space over to the 
LDA ADRCOL column for the address field: 
SBC #4 Operand field started in column 4... 
SBC OPCHRS ... and includes OPCHRS characters. 
TAX So now we need X spaces. 
JSR SPACES Send enough spaces to reach address 
column. 
JSR PR.ADR Print address of opcode. 
LOOP.2 JSR SPACE Space once. 
JSR DUMPSL Dump selected byte. 
JSR INC.SL Select next byte. 
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DEC OPBYTS Completed last byte in instruction? 


BPL LOOP.2 If not, do next byte. 
JSR DEC.SL Back up SELECT to last byte in 
operand. 

FINEND JSR CR.LF Advance to a new line. 

RTS Return to caller. 
OPBYTS .BYTE Number of bytes in operand. 
OPCHRS BYTE 0 Number of characters in operand. 
ADRCOL BYTE 16 Starting column for address field. 


Now we can disassemble a line. So let’s write the disassemblers, one for the 
printer and one for the screen. These routines will have much the same structure as 
TVDUMP and PRDUMP, which direct hexdumps to the printer or to the screen. 


Disassemble to Screen: TV.DIS 


TV.DIS LDA DISLNS Initialize line counter with 
STA LINUM number of lines to be disassembled. 
LDA #$FF Set end address to $FFFF, 
STA EA so NEXTSL will always increment 
STA EA+1 the SELECT pointer. 
JSR TVT.ON Select TVT as an output device. (Other 


selected devices will echo the 
disassembly.) 


TVLOOP JSR DSLINE Disassemble one line. 
DEC LINUM Completed last line yet? 
BNE TVLOOP If not, disassemble next line. 
RTS If so, return. 
DISLNS BYTE 5 DISLNS holds number of lines to be 


disassembled by TV.DIS. To disassem- 
ble one line, set DISLNS=1. 

LINUM BYTE 0 This variable keeps track of the number 
of lines yet to be disassembled. 


Printing Disassembler: PR.DIS 


The printing disassembler (PR.DIS) will announce itself by displaying “PRINT- 
ING DISASSEMBLER" on the screen, but not on the printer. It will then let the user 
set the starting and ending addresses, in the same manner as PRDUMP. When the 
user has specified the block of memory to be disassembled, the PR.DIS will print a 
disassembly of the specified block of memory, echoing its output to the screen. 
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PR.DIS JSR PR.OFF Deselect printer. 


JSR TVT.ON Select TVT. 

JSR PRINT: Display title: 

BYTE TEX 

BYTE CR,LF 

.BYTE ‘PRINTING DISASSEMBLER’ 

BYTE CR,LF,ETX ; 

JSR.SETADS Let user set starting address 
and end address. 

JSR GOTOSA Set SELECT = Start address. 

JSR PR.ON Select the printer. 

PRLOOP JSR DSLINE Disassemble one line. 

BPL PRLOOP If it wasn’t the last line, disassemble the 
next one. 

RTS Return to caller. 


With PR.DIS and TV.DIS, you can disassemble any block of memory, direct- 
ing the disassembly to the screen or to the printer. See Chapter 12 for guidance on 
mapping these two disassemblers to function keys in the Visible Monitor. 
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Chapter IC 
A General MOVE Utility 


Many computer programs spend a lot of time moving things from one place to 
another. Such programs should be able to call a move utility for most of this work. 
A move utility should: 

@ Be general enough to move anything of any size from any place in memory 

to anywhere else, 

@ Not be upset when the origin block overlaps the destination. 

@ Have entry points with input configurations convenient to different callers, 

@ Preserve its inputs. 

@ Be fast. 

This routine will be called often. A calling program doesn’t want to spend all its 
time here. The cost of that speed is size, because we'll use straight-line, dedicated 
code to handle each of several special cases, but even so this move code will weighin 
at less than 200 bytes, That's less than three percent of the memory available ona 
system with 8 K bytes of programmable memory, 


Input Configurations 
Different callers may find different input configurations convenient, so let's 
provide more than one entry point, each requiring different parameters to be set. 


The following two subroutine entry points are likely to meet the needs of most 
callers; 


MOV.EA Move a block, defined by its starting address (SA), its ending 
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address (EA), and its destination address (DEST). 
MOVNUM Move a block, defined by its starting address, the number of 
bytes in the block (NUM), and the destination of the block. 


MOV.EA will simply be a “front end” for MOVNUM. It will set NUM = end- 
ing address — starting address of the source block. ° 


Handling Overlap 


There will be no problem with overlap if we always move from the leading edge 
of the source block — that is, copy up beginning with the highest byte to be moved, 
and copy down beginning with the lowest byte to be moved. This way, if a byte in 
the source block is overwritten it will already have been copied to its destination. 


Going Up? 
To avoid overlap, MOVNUM must determine whether it’s copying up or 
down. Therefore, before moving anything it must see if the destination address is 


greater or lesser than the starting address. Then it can branch to MOVE-UP or 
MOVE-DOWN as appropriate. 


Figure 10.1: Top level of block move. 
Flowchart of MOVE.EA and MOV- oop YES 
NUM routines, 


DEST 
LESS THAN YES 
START 
2 


Using the flowchart of figure 10.1 as a guide, let’s write source code for the top 
level of MOV.EA and MOVNUM: 
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GETPTR = 0 This is the input-page pointer. 

PUTPTR = GETPTR+2 This is the output-page pointer. 
MOV.EA = SEC Set NUM = EA — SA 

LDX.EA+1 

LDA EA 

SBC SA 

STA NUM 

BCS MOVE.1 

DEX 

SEC 
MOVE.1 TXA 

SBC SA+1 

STA NUM+1 

BCS MOVNUM Now NUM = EA — SA. 
ER.RTN LDA #ERROR If EA less than SA, 

RTS return with error code. 
MOVNUM _ LDY #3 Save the 4 zero-page 


SAVE LDA GETPTR,Y bytes we'll use. 

PHA | 

DEY 

BPL SAVE 

SEC Is DEST less than START? 

LDA SA+1 

CMP DEST +1 

BCC MOVEUP If so, we'll move down. 

BNE MOVEDN If not, we'll move up. 

LDA SA SA, destination are in the same 
page. 

CMP DEST If SA more than destination, we'll 

BCC MOVEUP move down. If SA less than destina- 
tion, 

BNE MOVEDN we'll move up. If they are equal, we'll 


return bearing okay code. 
Restore 4 zero-page bytes that were 
used by the move code. 


OK.RTN _LDY #0 
RESTOR PLA 


STA GETPTR,Y 
INY 
CPY #4 Restored last byte yet? 
BNE RESTOR If not, restore next one. If so, 
RTS return, with move complete and zero 
page preserved. 
NUM .WORD 0 This 16-bit variable holds the number of 
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bytes to be moved. 


Optimizing for Speed 


Moving a page at a time is the fastest way to move data, and for large blocks we 
can move most of the bytes this way. Therefore, when moving data we'll move one 
page at a time until there is less than a page to move; then we'll move a byte at a time 
until the entire source block is moved. MOVE-UP and MOVE-DOWN must test to 
see if they have more or less than a page to move, and then branch to dedicated code 
that either moves a page or moves less than a page. 


MOVEUP 


SET PAGE POINTERS 
TO HIGHEST PAGE IN 


SOURCE 
DESTINATION BLOCKS 


Figure 10.2: Move a block up. 
Flowchart of the MOVEUP routine. 


MOVE A PAGE UP, 
STARTING AT THE TOP 
DECREMENT PAGE 

POINTERS 


MOVE LESS THAN A 
PAGE UP, STARTING 
AT THE TOP 


RETURN BEAR- 
ING OKAY CODE 


MOVE-UP 


Using figure 10.2 as a guide, we can write source code for MOVE-UP: 
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MOVEUP 


NEXT.1 


NEXT.2 


NEXT.3 
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LDA NUM+1 
BEQ LESSUP 


LDY NUM+1 
LDA NUM 
SEC 

SBC #$FF. 


BCS NEXT.1 
DEY 
TAX 


oTY PUTPTR+1 
TXA 

CLC 

ADC SA 

STA GETPTR 
BCC NEXT.2 
INY 

TYA 

ADC SA+1 
STA GETPTR+1 


TXA 

CLC 

ADC DEST 

STA PUTPTR 
BCC NEXT.3 
INC PUTPTR+1 
LDA PUTPTR+1 
ADC DEST +1 
STA PUTPTR+1 


More than one page to move? 

If not, move less than a page up. 

To move more than a page, set the page 
pointers GETPTR and PUTPTR to the 
highest pages in the source and destina- 
tion blocks. To do this, treat X as the 
high byte and Y as the low byte of a 
pointer, which we'll call (X,Y). First set 
(X,Y) = NUM -— $FF, the relative ad- 
dress of the highest page in the block. 
Now Y is high byte of block size. 

Now A is low byte of block size. 
Prepare to subtract. 

Now A is a low byte of (block size — 
SFF.) 


Now (X,Y) = NUM — $FF. 
X is low byte, Y is high byte of NUM — 
SFF, 


Prepare to add, 


Now GETPTR = SA + NUM — $FF 
(the last page in the origin block). 


Prepare to add. 


Now PUTPTR = DEST + NUM — $FF 
(the last page in the destination block). 
Now the page pointers (GETPTR and 
PUTPTR) point to the last page in, respec- 
tively, the origin and destination blocks. 


PAGEUP 
UPLOOP 


LESSUP 


SOMEUP 


LOPAGE 


LDX NUM+1 
LDY #$FF 

LDA (GETPTR),Y 
STA (PUTPTR),Y 
DEY 

BNE UPLOOP 
LDA (GETPTR),Y 
STA (PUTPTR),Y 
DEC GETPTR+1 
DEC PUTPTR+1 
DEX 

BNE PAGEUP 
JSR LOPAGE 


LDY NUM 


LDA (GETPTR),Y 
STA (PUTPTR),Y 
DEY 

CPY #$FF 

BNE SOMEDUP 
JMP OK.RTN 
LDA SA 

STA GETPTR 
LDA SA+1 

STA GETPTR+1 
LDA DEST 

STA PUTPTR 
LDA DEST +1 
STA PUTPTIR+1 
RTS 


Move-Down: MOVEDN 


Load X with number of pages to move. 
Move a page up. 

Get a byte from origin block. 

Put it in destination block. 

Adjust index for next byte down. 

Loop if not the last byte. 

Move last byte. 


Decrement page pointers. 


Still more than a page to move? 

If so, move up another page. 

Set GETPTR, PUTPTR to bottom of 
origin and destination blocks. 

Set index to number of bytes to be 
moved. 

Move a byte. 


About to move last byte? 


If not, move another. 

If so, return bearing “OK” code. 
Set page pointers to the bottom 
of the origin and destination 


blocks. 


Return to caller, 


Figure 10.3 shows an algorithm for moving a block of data down through 


memory. 
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Figure 10.3: Move a block down. 
Flowchart of the MOVEDN routine. 


SET PAGE POINTERS TO 
LOWEST PAGE IN SOURCE, 
DESTINATION BLOCKS 


MOVE A PAGE DOWN, 
STARTING AT THE 
BOTTOM 


INCREMENT PAGE 
POINTERS 


MORE 
THAN A 
PAGE LEFT 
TO MOVE 


MOVE LESS THAN A PAGE 
DOWN, STARTING AT 
THE BOTTOM 


RETURN 
BEARING OKAY 
CODE 


Using figure 10.3 as a guide, we can write source code for the move-down 


routine: 


MOVEDN 


PAGEDN 
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JSR LOPAGE 
LDY #0 


LDX NUM+1 
BEQ LESSDN 


LDA (GETPTR),Y 
STA (PUTPTR),Y 
INY 


Set page pointers to bottom of origin 
and destination blocks. 

Y must equal zero whether we move 
more or less than a page. 

More than one page to move? 

If not, move less than a page down. 
Move a page down. 

Get a byte from origin block 

and put it in destination block. 
Moved last byte in page? 


BNE PAGEDN 


INC GETPTR+1 Increment page pointers. 

INC PUTPTR+1 

DEX Still more than a page to move? 

BNE PAGEDN If so, move another page down. 

LDY #0 Move less than a page down starting at 
the bottom. 

LESSDN LDA (GETPTR),Y Get a byte from origin... 

STA (PUTPTR),Y and put it in destination block. 

INY Adjust index for next byte. 

SEC 

CPY NUM Moved last byte yet? 

BCC LESSDN If not, move another. 

JMP OK.RTN If so, return to caller, bearing “OK” 
code. 


Speed 


For large blocks of data, most bytes will be moved by the page-moving code: 
PAGE-UP and PAGE-DOWN. Since the processor spends most of its time in these 
loops, let’s see how long they will take to move a byte. (Appendix AS, Instruction 
Execution Times, provides information on the number of cycles required for each 
6502, operation.) Ordinarily I would not go into great detail concerning the speed of 
execution of a small block of code, but these two loops form the heart of the move 
utility, because they move most of the bytes in any large block. By making those 
two loops very efficient, we can make the move utility very fast. In fact, these loops 
will let us move blocks bigger than one page, at a rate approaching 16 cycles/byte 
moved. (By way of a benchmark, that’s more than twice as fast as the time required 
to move large blocks with MOVIT, a smaller move program published in The First 
Book of KIM.* MOVIT, made tiny [95 bytes] to use as little as possible of the KIM’s 
limited programmable memory, requires at least 33 cycles/bytes moved.) 


MOVE.EA and MOVNUM are move utilities because they have input con- 
figurations and performance suitable for many calling programs. But they are not 
very convenient to the human user who simply wants to move something. With the 
Visible Monitor and the move utility, you can move something from one place to 


*Butterfield, et al, The First Book of Kim, Rochelle Park, NJ: Hayden 
Book Company, 1977, 
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another, but you have to know what addresses to set and you have to know the ad- 
dress of the move utility itself. 

That's too much for me to remember. I want a tool, which will know the ad- 
dresses and won't require me to remember them. 

When I’m developing programs with the Visible Monitor and I want to move 
some data or code from one place to another, I'd like to be able to call up a move 
tool with a single keystroke — say “M.” It’s easier for me to remember “ M’ for 
Move” than it is to remember the address of the move utility and the addresses of its 
inputs. 

Let’s say I’m using the Visible Monitor and I press “M.” This invokes the move 
tool. The first thing it should do is let me know that it’s active. What if I hit the “M” 
key by mistake? The computer should let me know that I’ve invoked a new pro- 
gram. 

It should put up a title: "MOVE TOOL.” Then it should let me specify the start, 
end, and destination addresses of a given block in memory. When these addresses 
are set, the move tool can call MOV.EA, which will actually perform the move, 
based on the addresses set by the user. 

The top level of the move tool is therefore quite simple. Figure 10.4 shows the 
flowchart for the following routine: 


CLEAR SCREEN 
DISPLAY TITLE 


GET STARTING 
ADDRESS 


GET ENDING 
ADDRESS 


GET 
DESTINATION 
ADDRESS 

CALL MOV. EA 
RETURN 


Figure 10.4; A move tool. Flowchart of MOVER routine. 


142 BEYOND GAMES 


MOVER 


MOVER JSR TVT.ON Select screen as an output device. 

JSR PRINT: Put a title on the screen, 

BYTE TEX,CR 

BYTE‘ MOVE TOOL’ 

BYTE CR,LF,LF 

.BYTE ETX 

JSR SETADS Get starting address, 
ending address, and 

JSR SET.DA destination address from user. 

JSR MOV.EA Move the block specified by those 
pointers. 

RTS Return to caller, with requested block 


moved and with zero page preserved. 


Of course, MOVER can work only if we have a routine that lets the user set the 
destination address. Let’s write such a routine, and we'll be all set to move whatever 
we like, to wherever we want it. 


Set Destination Address: SET.DA 
SET.DA JSR TVT.ON Select TVT as an output device. All 


other selected output devices will echo 
the screen output. 


JSR PRINT: Put prompt on the screen: 
BYTE TEX 
-BYTE CR,LF,LF 
BYTE “SET DESTINATION ADDRESS ” 
BYTE “AND PRESS Q.” 
-BYTE ETX 
JSR VISMON Call the Visible Monitor, so user can 
specify a given address. 
DAHERE LDA SELECT Set destination address equal to 
STA DEST address set by the user. 
LDA SELECT +1 
STA DEST +1 
RTS Return to caller. 
DEST -WORD 0 Pointer to destination of block to be 
moved. 
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See Chapter 12, Extending the Visible Monitor, to learn how to hook the 
move tool into the Visible Monitor by mapping it to a given key. Then to move 
anything in memory to anywhere else, you need only strike that key and the move 
tool will do the rest. 
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Chapter II: 
A Simple Text Editor 


With the Visible Monitor you can enter ASCII text into memory by placing the 
arrow under field 2 and striking character keys. But you must strike two keys for 
every character in the message: first the character key, to enter the character into the 
displayed address, and then the space bar, to select the next address. Furthermore, if 
you want to enter an ASCII space or carriage return into memory, you'll have to 
place an arrow under field 1 and enter the hexadecimal representation of the desired 
character: $20 for a space; $0D for a carriage return. Then, of course, you'll have to 
hit the space bar to select the next address, and the “greater than” key to move the 
arrow back underneath field 2, so that you can enter the next character into 
memory. 

If you only need to enter up to a dozen ASCII characters at a time, then the Vis- 
ible Monitor should meet your needs. When you need to enter longer messages into 
memory, you'll find yourself wanting a more suitable tool — a simple text editor. 

Text editors come in many different shapes, sizes and formats. A line-oriented 
editor, suitable for creating and editing program source files, requires that you enter 
and edit text a line at a time. Usually each line must be numbered when it is entered; 
then, in order to edit a line, you must first specify it by its line number. 

On the other hand, a character-oriented editor allows you to overstrike, insert, 
or delete characters anywhere in a given string of characters. Character-oriented 
editors are frequently found in word processors for office applications, but don’t get 
your hopes up; this chapter will not present software nearly as sophisticated as that 
available in even the humblest of word processors. However, it will present a very 
simple character-oriented editor that will enable you to enter and edit text strings, 
such as prompts, anywhere in memory. 
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Structure 


The text editor will have the three-part structure shown in figure 11.1. From this 
we can write source code for the top level of the text editor: 


INITIALIZE POINTERS 


DISPLAY 
CURRENT TEXT 


GET A KEYSTROKE 
AND HANDLE IT 


Figure 11.1: Structure of simple text editor. 


EDITOR JSR SETBUF Initialize pointers and variables required 
by the editor. 
EDLOOP JSR SHOWIT Show the user a portion of the text 
buffer. 
JSR EDITIT Let the user edit the buffer or move 
about within it. 
CLC 
BCC EDLOOP Loop back to show the current text. 


Look familiar? It should. This is essentially the same structure used in the Vis- 
ible Monitor. It’s a simple structure, well-suited to the needs of many interactive dis- 


play programs. 


SETBUF 


The text editor will operate on text in a portion of memory called the text buf- 
fer. Because the editor must be able to change the contents of the text buffer, the buf- 
fer must occupy programmable memory and may not be used for any other pur- 
pose. This exemplifies a problem familiar to programmers: how to allocate memory 
in the most effective manner. Memory used to store a program cannot be used at the 
same time to store text; nor can memory allotted to the text buffer be used for stor- 
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ing programs or variables. 

How do you get five pounds of tomatoes into a four-pound-capacity sack — 
without crushing the tomatoes or tearing the sack? You don’t. If you want to store a 
lot of text in your computer’s programmable memory, you might not have room for 
much of a text editor. On the other hand, an elaborate text editor, requiring a good 
deal of programmable memory for its own code, may not leave much room in your 
system for storing text. , 

Therefore, this text editor leaves the allocation of memory for the text buffer to 
the discretion of the user. A subroutine called SETBUF sets pointers to the starting 
and ending addresses of the text buffer. The rest of the editor then operates on the 
text buffer defined by those pointers. 

SETBUF sets the starting and ending addresses of the edit buffer. If you always 
want to enter and edit text in the same buffer, then substitute your own subroutine 
to set the starting and ending addresses to the values you desire. Otherwise, use the 
following version of SETBUF, which lets the user define a new text buffer each time 
it is called. 

For testing purposes, you might even want to set the text buffer completely in- 
side screen memory. This allows you to see exactly what's happening inside the text 


buffer. 


SETBUF 
SETBUF JSR TVT.ON Select TVT. 
JSR PRINT: Display “SET UP EDIT BUFFER.” 
BYTE TEX,CR,LF,LF 
BYTE ‘SET UP EDIT BUFFER’ 
.BYTE CR,LF,LF,ETX 
GETADS JSR SETADS Let user set starting address and end ad- 
dress of edit buffer. 
JSR GOTOSA Now SELECT = starting address of edit 
buffer. 
RTS Return to caller. 


This version of SETBUF allows the user to set the text buffer anywhere in mem- 
ory, provided that the ending address is not lower in memory than the starting 
address. It returns with the SELECT pointer pointing at the starting address of the 
buffer, 
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SHOWIT 


Now that SETBUF has set the pointers associated with the text buffer, let’s 
figure out how to display part of that buffer. 

Figure 11.2 shows the simple 3-line display to be used by the text editor. “X” 
marks the home position of the edit display. Everything in the edit display is relative 
to the home position. Thus, to move the edit display about on your screen (ie: from 
the top of the screen to the bottom of the screen), you need only change the home 
position, which is set by SHOWIT. 


LINE 1: 
LINE 2: SOME CHARACTERS FROM TEXT BUFFER GO HERE 
LINE 3: m4 HHHH 


Figure 11.2: Three-line display of simple text editor. 


Line 1 is entirely blank. Its only purpose is to separate the text displayed in line 
2 from whatever you may have above it on your screen. 

Line 2 displays a string of characters from the edit buffer. The central character 
in line 2 is the current character. The current character is indicated by an upward- 
pointing arrow as in line 3. The address of the current character is given by the four 
hexadecimal characters represented by “HHHH” in line 3. 

The letter “M” in line 3 shows you where a graphic character will indicate the 
current mode of the editor. 


Modes 


This editor will have two modes: overstrike mode and insert mode. In over- 
strike mode you overstrike, or replace, the current character with the character from 
the keyboard. In insert mode, you insert the keyboard character into the text buffer 
just before the current character. How one sets these modes, a function for the 
subroutine EDITIT, will be discussed later. But SHOWIT must know the current 
mode in order to display the proper graphic in line 3 of the editor display. 

Since we're going to have two modes, let’s keep track of the current mode of the 
editor with a 1-byte variable called EDMODE. We'll assign the following values to 
EDMODE: 
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EDMODE = 0 when the editor is in overstrike mode. 
EDMODE = 1 when the editor is in insert mode. 


Any other value of EDMODE is undefined and therefore illegal. If SHOWIT 
should find that EDMODE has an illegal value, then it should set EDMODE to some 
legal default value — say, zero. That would make overstrike the default mode for 
the editor. 

We'll also need two graphics characters, INSCHR and OVRCHR, to indicate in- 
sert and overstrike modes, respectively. In this chapter, the character to indicate a 
given edit mode will simply be the first initial of the mode name: “0” for overstrike 
mode, “I” for insert mode. 


SHOWIT 
SHOWIT JSR TVPUSH Save the zero-page bytes we'll use. 
JSR TVHOME Set home position of the 
edit display. 
LDX TVCOLS Clear 3 rows for the 
LDY #3 edit display. 
JSR CLR.XY 
JSR TVHOME Restore TV.PTR to home position of 
edit display. 
JSR TVDOWN Set TV.PTR to beginning of 
JSR TVPUSH line 2 and save it. 
JSR LINE.2 Display text in line 2. 
JSR TV.POP Set TV.PTR to beginning 
JSR TVDOWN of line 3. 
JSR LINE.3 Display line 3. 
JSR TV.POP Restore zero-page bytes used. 
RTS Return to caller, with edit display on 


screen, rest of screen unchanged, and 
zero page preserved. 


Of course, SHOWIT can work only if it can call a couple of routines (LINE.2 
and LINE.3) to display lines 2 and 3 of the editor display, respectively. Let’s write 
those routines. 
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Display Text Line 


To display the text line, we simply need to copy a number of characters from 
the text buffer to the second line of the editor display. Since the screen is TVCOLS 
wide, we should display TVCOLS number of characters in such a way that the cen- 
tral character in the display is the currently selected character. We can do that if we 
decrement SELECT by TVCOLS/2 times, and then display TVCOLS number of 


characters: 


LINE.2 


LOOP.1 


LOOP.2 


JSR PUSHSL 
LDA TVCOLS 
LSR A 


DEX 

JSR DEC.SL 
DEX 

BPL LOOP.1 
LDA TVCOLS 
STA COUNTR 
JSR GET.SL 
JSR TV.POT 
JSR TVSKIP 
JSR INC.SL 
DEC COUNTR 
BPL LOOP.2 
JSR POP.SL 
RTS 


Display Status Line 


LINE.2 


Save SELECT pointer. 
Set X equal 
to half the width 


of the screen. 


Decrement SELECT X times. 


Initialize COUNTR. (We're 

going to display TVCOLS characters.) 
Get a character from buffer. 

Put it on screen. 

Go to next screen position. 

Advance to next byte in buffer. 

Done last character in row? 

If not, do next character. 

Restore SELECT from stack. 

Return to caller. 


Line 3 of the editor display provides status information: identifying the current 
mode of the editor, pointing at the current character in line 2 of the edit display, and 
providing the address of the current character. 
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LINE.3 


OVMODE 
TVMODE 


LDA TVCOLS 
LSR A 

SBC #2 

JSR TVPLUS 


LDA EDMODE 
CMP #1 

BNE OVMODE 
LDA #INSCHR 
CLC 

BCC TVMODE 
LDA #OVRCHR 
JSR TV.PUT 
LDA #2 

JSR TVPLUS 


LDA ARROW 
JSR TV.PUT 
LDA #2 

JSR TVPLUS 


LDA SELECT +1 
JSR VUBYTE 
LDA SELECT 
JSR VUBYTE 
RTS 


LINE.3 


A = TVCOLS/2 

A = (TVCOLS/2) — 2 

Now TV.PTR is pointing 2 characters to 
the left of center of line 3 of the edit 


. display. 


What is current mode? 

Is it insert mode? 

If not, it must be overstrike mode. 
If so, load A with the insert graphic. 


Load A with the overstrike graphic. 
Put mode graphic on screen. 


Now TVPTR is pointing at the center of 
line 3 of the edit display. 

Display an up-arrow here, 

pointing up at the current character. 


Now TV.PTR is pointing at the position 
reserved for the address of the current 
character. 

Display address of current 

character. 


Return to caller. 


We've chosen to define the editor’s current character as the character pointed to 
by SELECT. We've already developed some subroutines that operate on the SELECT 
pointer and on the currently selected byte, so we won't have to write many new 
editor utilities; instead, we can use many of the SELECT utilities presented in earlier 


chapters, 


Edit Update 


Now we can display the three lines of the edit display. What else must the editor 
do? Oh, yes: it must let us edit, Here’s a reasonably useful, if small, set of editor 


functions: 
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@ Allow the user to move forward through the message. 

@ Allow the user to move backward through the message. 

@ Allow the user to overstrike the current character. 

@ Allow the user to delete the current character. 

® Allow the user to delete the entire message. 

@ Allow the user to insert a new character at the current character position. 
@ Allow the user to change modes from insert to overstrike and back again. 


@ Print the message. 


® Allow the user to terminate editing, thus causing the editor to return to its 


caller. 


What keys will perform these functions? I'll leave that up to you by treating the 
editor function keys as variables and keeping them in a table called EDKEYS (see 
Appendix C11). To assign a given function to a given key, store the character code 
generated by that key in the appropriate place in the table: 


EDITIT JSR GETKEY 
CMP QUITKY 
BNE DO.KEY 
PHA 


JSR GETKEY 
CMP QUITKY 
BNE NOTEND 


ENDEDT PLA 
PLA 
PLA 
RTS 
NOTEND STA TEMPCH 


PLA 


JSR DO.KEY 
LDA TEMPCH 
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EDITIT 


Get a keystroke from the user. 

Is it the “quit” key? 

If not, do what the key requires. 
Save the key on the stack. If the user 
gives us 2 “quit” keys in a row, we 
should exit the editor. So let's see if 
another QUITKY follows: 


Is this key a “quit” key? 

If not, then this is not the end of the 
edit session, so we'd better handle both 
of those keys, and in their original 
order. 

End the edit session: 

Pop first “quit” key from stack. 

Pop from stack the return address to 
the editor’s top level. 

Return to the editor’s caller. 

Save the key that followed the “quit” 
key. 

Pop first “quit” key from stack. 
Handle it. 

Restore to the accumulator the key that 
followed the “quit” key. 


DO.KEY 


DO.END 
JFNEXT 


IFPREV 


IF.RUB 


IF.PRT 


IFFLSH 


CHARKY 


OTRIKE 


CMP MODEKY 
BNE IFNEXT 
DEC EDMODE 
BPL DO.END 
LDA #1 

STA EDMODE 
RTS 

CMP NEXTKY 
BNE IFPREV 
JSR NEXTCH 


RTS 

CMP PREVKY 
BNE IF.RUB 
JSR PREVCH 


RTS 

CMP RUBKEY 
BNE IF.PRT 
JSR DELETE 
RTS 

CMP PRTKEY 
BNE IFFLSH 
JSR PRTBUF 


JSR FLUSH 
RTS 


LDX EDMODE 
BEQ STRIKE 
JSR INSERT 
RTS 

JSR PUT.SL 


“DO.KEY” does what the key in the ac- 
cumulator requires: 

Is it the “change mode” key? 

If not, perform the next test. 

If so, change the editor’s mode... 


and return. 

Is it the “next” key? 

If not, perform the next test. 

If so, advance the current position by 
one character... 

and return. 

Is it the “previous” key? 

If not, perform the next test. 

If so, back up the current position by 
one character... 

and return. 

Is it the “delete” key? 

If not, perform the next test. 

If so, delete the current character... 

and return. 

Is it the “print” key? 

If not, perform the next test. 

If so, print the buffer... 

and return. 

Is it the “flush” key? 

If not, perform the next test. 

If so, flush all text in the edit buffer... 
and return. 

OK. It’s not an editor function key, so it 
must be a regular character key. There- 
fore, if we're in overstrike mode we'll 
overstrike the current character with the 
new character, and if we're in insert 
mode we'll insert the new character at 
the current character position. 

Are we in overstrike mode? 

If so, overstrike the character. 

If not, insert the character... 

and return. 

Put the character into the currently 
selected address, which is the address of 
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INSERT 


NEXT 


OPENUP 


ENDINS 
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JSR NEXTSL 
RTS 
PHA 


JSR PUSHSL 


LDA SA+1 


JSR SAHERE 


JSR NEXTSL 
BMI ENDINS 


JSR DAHERE 


LDA EA 
BNE NEXT 
DEC EA+1 
DEC EA 


JSR MOV.EA 


PLA 

STA EA 
PLA 

OTA EA+1 
PLA 

STA SA 


the current character. 

Advance to the next character position, 
and return to caller. 

Save the character to be inserted, while 
we make space for it in the edit buffer... 
Push the address of the current character 
onto the stack. 

Push starting address of the buffer 

onto stack. 


Push ending address of the buffer 
onto stack. 


Set SA = SELECT, so current character 
will be the start of the block we'll move. 
Advance to next character position in 
the text buffer. 

If we're at the end of the buffer, we'll 
overstrike instead of inserting. 

Set DEST = SELECT, so destination of 
block move will be 1 byte above block’s 
start address (ie, we'll move a block up 
by 1 byte). 

Decrement end address 

so we won't move text 

beyond the end of 

the text buffer. 

Now the starting address is the current 
character, the destination address is the 
next character, and the ending address is 
one character shy of the last character in 
the buffer. We're ready now to move a 
block. 

Open up 1 byte of space at the current 
character’s location, by moving to DEST 
the block specified by SA and EA. 
Restore EA so it points to the last byte 
in the edit buffer. 


Restore SA so it points to the first byte 
in the edit buffer. 


PLA 


STA SA+1 

JSR POP.SL Restore SELECT so it points to the cur- 
rent character. 

PLA Reload the accumulator with the 
character to be inserted. Since we've 
created a 1-byte space for this character, 
we need only overstrike it. 

JSR STRIKE 

RTS Return to caller. 


EDITIT looks like it will do what we want it to do — provided that it may call 
the following (as yet unwritten) subroutines: 


@ NEXTCH — Select next character. 

@ PREVCH— Select previous character. 
® FLUSH — Flush the buffer. 

@ PRTBUF — Print the buffer. 


Let’s write them. 


Select Next Character 


We want to be able to advance through the text buffer, but we don’t want to be 
able to go beyond the end of the buffer or beyond the end of the message. The end of 
the message will be indicated by one or more ETX (end-of-text) characters. ETX 
characters will fill from the last character in the message to the end of the buffer. So 
if the current character is an ETX, we shouldn't be allowed to advance through 
memory. Or, if the current character is the last byte in the edit buffer, we shouldn't 
be allowed to advance through memory. But if we aren’t at the end of our text for 
one reason or another, select the next character by calling the NEXTSL subroutine: 


NEXTCH 
NEXTCH JSR GET.SL Get currently selected character. 
CMP #ETX Is it an ETX? 
BEQ AN.ETX If so, return to caller, bearing a negative 
return code. 
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AN.ETX 


JSR NEXTSL 
RTS 


LDA #$FF 
RTS 


Select Previous Character 


If not, select next byte in the buffer, and 
return positive if we incremented 
SELECT; negative if SELECT already 
equaled EA. 

Since we are on an ETX, we won't incre- 


ment 
SELECT; we'll just return with a 
negative return code. 


The PREVCH (select-previous-character routine) should work in a manner 
similar to that used by NEXTCH. NEXTCH increments the SELECT pointer and 
returns plus, unless SELECT is greater than or equal to EA, in which case NEXTCH 
preserves SELECT and returns minus. Conversely, PREVCH should decrement 
SELECT and return plus, unless SELECT is less than or equal to SA, in which case it 
should preserve SELECT and return minus: 


PREVCH 


SL.OK 


NOT.OK 
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SEC 
LDA SA+1 


CMP SELECT +1 


BCC SL.OK 
BNE NOT.OK 


LDA SA 

CMP SELECT 
BEQ NO.DEC 
BNE NOT.OK 


JSR DEC.SL 


LDA #0 

RTS 

LDA SA 
STA SELECT 
LDA SA+1 


PREVCH 


Prepare to compare. 
Is SELECT in a higher page than SA? 


If so, SELECT may be decremented. 

If SELECT is in a lower page than SA, 
then it’s not okay. We'll have to fix it. 
SELECT is in the same page as SA. 

Is SELECT greater than SA? 


If SELECT = SA, don’t decrement it. 

If SELECT is less than SA, it’s not okay, 
so we'll have to fix it. 

SELECT is OK, because it’s greater than 
SA. Thus, we may decrement it and it 
will remain in the edit buffer. 

Set a positive return code... 

and return. 

Since SELECT is less than SA, it is 

not even in the edit buffer. So give 
SELECT a legal value, by setting 

it = SA. 


STA SELECT +1 


LDA #0 Set a positive return code... 
RTS. and return, 

NO.DEC LDA #$FF SELECT = SA, so change nothing. Set 
RTS a negative return code and return. 


Flush Buffer 


To flush the buffer, we'll just fill the buffer with ETX characters: 


FLUSH 
FLUSH JSR GOTOSA Set SELECT to the first character posi- 
tion in the buffer. 
FLOOP LDA #ETX Load accumulator with an ETX 
character... 

JSR PUT.SL and put it into the buffer. 

JSR NEXTSL Advance to next byte. 

BPL FLOOP If we haven't reached the last byte in the 
buffer, let’s repeat the operation for this 
byte. 

JSR GOTOSA If we have reached the last byte in the 


buffer, let’s set SELECT to the beginning 
| of the buffer... 
JSR RTS and return, 


Print Buffer 


To print the buffer, we must print the characters in the edit buffer up to, but not 
including, the first ETX. Even if there is no ETX in the buffer, we must not print 
characters from beyond the end of the buffer: 


PRTBUF 
PRTBUF JSR GOTOSA Set SELECT to the start of the buffer. 
PRLOOP = JSR GET.SL Get the currently selected character. 
CMP #ETX Is it an ETX character? 
BEQ ENDPRT If so, stop printing and return. 
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ENDPRT 


JSR PR.CHR 
JSR NEXTCH 


BPL PRLOOP 


RTS 


Delete Current Character 


If not, print it on all currently selected 
devices. 

Advance SELECT by 1 byte within the 
buffer. 

If we haven't reached the end of the buf- 
fer, let's get the next character from the 
buffer, and handle it, 

Since we reached the end of the buffer, 
let's return. 

When this routine returns, the current 
character is at the end of the message. 


To delete the current character, we'll take all the characters that follow it in the 
text buffer and move them to the left by 1 byte. Here’s some code to implement such 


behavior: 


DELETE 
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JSR PUSHSL 
LDA SA+1 


PHA 
JSR DAHERE 


JSR NEXTSL 
JSR SAHERE 


JSR MOV.EA 


PLA 

STA SA 
PLA 

STA SA+1 


Save address of current character, 
Save buffer’s start address. 


Set DEST = SELECT, because we'll 
move a block of text down to here, to 
close up the buffer at the current 
character. 

Advance by 1 byte through text buffer, 
if possible. 

Set SA = SELECT, because the block 
we'll move starts 1 byte above the cur- 
rent character. (Note: the end address of 
the block we'll move is the end address 
of the text buffer.) 

Move block specified by SA, EA, and 
DEST, 

Restore initial SA (which 

is the start address of the 

text buffer, not of the block 

we just moved), 


JSR POP.SL Restore SELECT = address of the cur- 
rent character. 
RTS Return to caller. 


That’s the last of the utilities we need. We now have enough code to comprise a 
simple text editor. Appendices C10 and C11 are listings of this text editor, showing 
key assignments that work on an Ohio Scientific C-IP. If you have a different system 
or prefer your editor functions mapped to different keys, simply change the values 
of the variables in the key table. If you don’t want to have a given function, then for 
that function store a keycode of zero, You'll find this editor very handy for entering 
tables of ASCII characters into memory, and for entering, editing, and printing 
short text strings such as titles. for your hexdumps and disassembler listings. 
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Chapter | 2: 
Extending the Visible Monitor 


At this point you have the Visible Monitor, the print utilities, two hexdump 
tools, a table-driven disassembler, a move tool, and a simple text editor. Wouldn’t it 
be nice if they were all combined into one interactive software package? Then you 
could call any tool or function with a single keystroke. Since the Visible Monitor 
already uses several keys (0 thru 9; A thru F; G; Space; Return; and Rubout or 
Clear-Screen), we'll have to map these new functions into unused keys. 

Here’s a list of keys and the functions they will have in the extended monitor: 


Call a HEXDUMP tool (TVDUMP if the printer is not selected; 
PRDUMP if the printer is selected). 

Call MOVER, the move tool. 

Toggle the printer flag. 

Call the text editor. 

Toggle the user output flag. 

Call the disassembler (TV.DIS if the printer is not selected; PR.DIS if the 
printer is selected). 


~CHUZ 


With this assignment of keys to functions, we can select or deselect the printer 
at any time just by pressing “P,” and likewise the user-driven output device just by 
pressing “U.” We can print or display a hexdump just by pressing “H” and print or 
display a disassembly just by pressing ‘’?” (which is almost mnemonic if we think of 
the disassembler as an answer to our question, “What's in the machine?”). We can 
move anything from anywhere to anywhere else by pressing ‘M” for move, and we 
can enter and edit text just by pressing “T” for text editor. 
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Here’s some code to provide these features. Since we want to extend the 
monitor, this subroutine is called EXTEND: ” 


EXTEND 


IF.U 


IF.H 


NEXT.1 


IF.M 


IF.DIS 


NEXT.2 


IF.T 


CMP #?P 
BNE IF.U 
LDA PRINTR 
EOR #$FF 
STA PRINTR 
RTS 

CMP 4U 

BNE IF.H 
LDA USR.FN 
EOR #$FF 
STA USR.FN 
RTS 

CMP #'H 
BNE IF.M 
LDA PRINTR 
BNE NEXT.1 
JSR TVDUMP 
RTS 

JSR PRDUMP 
RTS 

CMP #™ 
BNE IF.DIS 
JSR MOVER 
RTS 

CMP #7 

BNE IF.T 
LDA PRINTR 
BNE NEXT.2 
JSR TV.DIS 
RTS 

JSR PR.DIS 
RTS 

CMP #T 
BNE EXIT 


EXTEND 


When EXTEND is called by the Visible 
Monitor’s UPDATE routine, a character 
from the keyboard is in the ac- 
cumulator. 

Is it the “P” key? 

If not, perform the next test. 

If so, toggle the 

printer flag... 


and return to caller. 

Is it the “U” key? 

If not, perform the next test. 
If so, 

toggle the user-output 

flag... 

and return. 

Is it the “H” key? 

If not, perform the next test. 
Is the printer selected? 

If so, print a hexdump. 

If not, dump to screen... 
and return. 

Print a hexdump... 

and return. 

Is it the “M” key? 

If not, perform the next test. 
If so, call the move tool. 
...and return. 

Is it the “?” key? 

If not, perform the next test. 
Is the printer selected? 

If so, print a disassembly. 

If not, dump to screen... 
and return. 

Print a disassembly... 

and return. 

Is it the “T” key? 

If not, return. 


EXTENDING THE VISIBLE MONITOR 161 


JSR EDITOR If so, call the text editor... 
RTS and return. 
EXIT RTS Extend this subroutine by adding more 
test-and-branch code here. 


The only remaining step is to modify the Visible Monitor’s UPDATE routine so 
that it calls EXTEND, rather than DUMMY, before it returns. Currently, the Visible 
Monitor’s UPDATE routine calls DUMMY just before it returns, with the bytes $20, 
$10, and $10 at addresses $13D1, $13D2, and $13D3, respectively. To make the Visi- 
ble Monitor's UPDATE routine call EXTEND (instead of DUMMY), you must 
change $13D2 from $10 to $BO. 

You can change this byte with the Visible Monitor itself, provided that you are 
very careful not to touch any key except the keys that are legal to the unextended 
Visible Monitor. Once you have changed $13D2, you may strike any key, but while 
you are changing $13D2, striking a key that is not legal within the unextended Visi- 
ble Monitor will cause the Visible Monitor to crash. Be careful. Once you have 
changed $13D2, try out your new extensions of the Visible Monitor by pressing the 
now legal keys: “H,” “M,” “P,” “U,” “7,” and “T.” 
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Chapter | 3: 


Entering the Software into 
Your System 


Chapters 5 thru 12 present software that will do useful work for you, but only if 
you can get it into your computer's memory. How you do that will depend on the 
system you have. 

If you have an Apple II, you have an extended machine-language monitor built 
into your system. If the monitor doesn’t come up on RESET, you can invoke it from 
BASIC with the following BASIC command: 


POKE 0,0:CALL 0 [RETURN] 


(The string “[RETURN]” means press the carriage return key.) 

This writes a 6502 BRK instruction into location $0000, and then executes a call 
to a machine-language subroutine at location $0000. The 6502, upon encountering 
the BRK instruction, will pass control to the Apple II ROM monitor. You'll know 
you're in the Apple II monitor because you'll see an asterisk (*) on the screen. Your 
Apple II documentation should tell you how to use this monitor to enter data into 
memory, dump memory, etc. 

The Ohio Scientific C-IP has a much simpler monitor than the Apple II built in- 
to its ROM (read-only memory). Press BREAK on the Ohio Scientific C-IP and then 
press “M.” You'll get the ROM monitor display and can use the ROM monitor to 
enter hexadecimal object code into memory. Unfortunately, although the Ohio 
Scientific ROM monitor lets you enter a machine-language program into memory 
by hand, or even from a cassette file in the proper format, it provides no facility for 
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recording a machine-language program onto a cassette. So unless you plan to key 
the Visible Monitor into memory and then leave your computer on forever, you're 
out of luck. However, you can SAVE a BASIC program on cassette, and then 
LOAD it from cassette. And that’s the key: we'll use the OSI C-1P’s ROM BASIC in- 
terpreter to help get machine-language programs into memory. 

And what if you have an Atari or a PET Computer? Each of these systems fea- 
tures a BASIC interpreter in ROM (read-only memory), but lacks a machine-lan- 
guage monitor. How can you enter hexadecimal object code into memory using only 
a BASIC interpreter? Perhaps more importantly, even if we manage to enter that ob- 
ject code into memory, how can we save that object code onto a cassette? If all we 
have is a BASIC interpreter, the simplest solution is to make our object code look 
like a BASIC program. 

That’s not so hard. A BASIC program may contain DATA statements, so a 
simple BASIC program can contain a number of DATA statements, where the 
DATA statements actually represent, in decimal, the values of successive bytes in 
the object code. Then the BASIC program can READ those DATA statements and 
POKE the values it finds into the appropriate section of memory. 


Using BASIC to Load Machine Language 


The software in this book can be entered into your computer by RUNning just 
such a series of BASIC programs. Each of these programs consists of an OBJECT 
CODE LOADER followed by some number of DATA statements. The first two 
DATA statements specify the range of DATA statements that follow. Each of the 
following DATA statements contains ten values: the first value is the start address at 
which object code from the line is to be loaded; the next eight values represent bytes 
to be loaded into memory, beginning at the specified address; and the tenth value is 
the checksum. The checksum is simply the total of the first nine values in the DATA 
statement. Of these ten values, the first and the tenth will always be greater than 
4000, and the others will always be less than 256. 

Appendices E1 through E11 contain this book’s object code in the form of such 
DATA statements. You must type each of these DATA statements into your com- 
puter, but the BASIC OBJECT CODE LOADER is designed to let you know if 
you've made a mistake. It won't catch any error you might make while typing, but it 
will catch the most likely errors. How? The answer is in the checksum. If you makea 
mistake while typing in one of these DATA lines, the checksum will almost certainly 
fail to match the sum of the address and the 8 bytes in the line. Then, when the 
OBJECT CODE LOADER detects a checksum error, it will identify the offending 
data statement by printing its line number as well as the address specified by the 
offending line. 

The object code loader will use the following variables: 
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A The address specified by a data line. Object code from that data 
line is to be loaded into memory beginning at that address. 

BYTE An array of DIMension 8, containing the values of 8 consecutive 
bytes of object code as specified by a data line. 

CHECK The checksum specified by a data line. 


FIRST The number of the first DATA statement containing object code. 
LAST The number of the last DATA statement containing object code. 
LINE A line counter, tracking the number of data lines of object code 
already loaded into memory. | 
SUM The calculated sum of the 8 bytes of object code and the address 


specified by a given data line. If SUM equals the checksum specified 
by that data line, then the data is probably correct. 
TEMP A temporary variable. 


Here is the object code loader: 


100 REM OBJECT CODE LOADER by Ken Skier 
110 REM 

120 DIM BYTE(8) :REM Initialize BYTE array. 

130 READ FIRST ‘REM Get the line number of the first 
140 REM DATA statement containing object code. 
150 READ LAST :-REM Get the line number of the last 
160 REM DATA statement containing object code. 
170 FOR LINE=FIRST TO LAST :REM Read the specified DATA lines. 
180 GOSUB 300 :REM Load next data line into memory. 
190 NEXT LINE :-REM If not done, read next DATA line. 
200 PRINT “LOADED LINES”, FIRST,’ THROUGH",LAST, “SUCCESSFULLY.” 
210 END :REM If done, say so. 

220 REM 

230 REM Subroutine at 300 handles one 

240 REM DATA statement. 

300 READ A :REM Get address for object code. 

310 SUM=A :REM Initialize calculated sum of data. 
320 FOR J=1 TO 8 :REM Get 8 bytes of object code from 
321 REM data. 

330 READ TEMP: BYTE(J)=TEMP :REM Put them in the byte array, and 
340 SUM=SUM+BYTE(J) :REM add them to the calculated sum of 
341 REM data. 

350 NEXT J -REM Now we have the 8 bytes, and we 
360 REM have calculated the sum of the data. 

370 READ CHECK REM Get checksum from data line. 


380 IF SUM < >CHECK THEN 500 :REM If checksum error, handle it. 
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390 FOR J=1 TO 8 :REM Since there is no checksum error, 


400 POKE A+J-1,BYTE(J) :REM poke the data into the specified 
410 NEXT J :REM portion of memory, 

420 RETURN :REM and return to caller. 

430 REM 

440 REM Checksum error-handling code follows. 


500 PRINT “CHECKSUM ERROR IN DATA LINE”,LINE 
510 PRINT “START ADDRESS GIVEN IN BAD DATA LINE IS”, A 


520 END 

530 REM The next two DATA statements specify 
540 REM the range of DATA statements that 

550 REM contain object code. 

570 REM 

600 DATA 7722? :REM This should be the number of the 
610 REM first DATA statement containing object 
611 REM code. 

612 REM 

620 DATA 72722? :REM This should be the number of the 
630 REM last DATA statement containing object 
631 REM code. 


Once you've entered the BASIC OBJECT CODE LOADER into your 
computer’s memory, SAVE it on a cassette. Remember that by itself the BASIC 
OBJECT CODE LOADER can do nothing; it needs DATA statements in the proper 
form to be a complete, useful program. When you're ready to create such a pro- 
gram, LOAD the BASIC OBJECT CODE LOADER from cassette back into 
memory. Now you're ready to append to it DATA statements from one of the E Ap- 
pendices — for example, from Appendix E1. Do not append DATA statements from 
more than one appendix to the same BASIC program. Append as many DATA lines 
as you can, without using memory above $0FFF (decimal 4095). You can insure that 
you don’t run over this limit by setting 4095 as the top of memory available to your 
system’s BASIC interpreter. How do you set the top of memory available to the 
BASIC interpreter? That varies from system to system, so consult the B Appendix 
for your system. 

Before you can append to the OBJECT CODE LOADER all the DATA 
statements from Appendix E1, your BASIC interpreter may give you an OUT OF 
MEMORY error (MEMORY FULL). When that happens, delete the last DATA line 
you appended to the OBJECT CODE LOADER. Let’s say you've appended DATA 


166 BEYOND GAMES 


lines 1000 thru 1022 when you get an OUT OF MEMORY error. Delete DATA line 
1022. Now enter the line numbers of the first and last of the object code DATA 
statements into DATA lines 600 and 620, like this: 


600 DATA 1000 
620 DATA 1021 


DATA lines 600 and 620, the very first DATA lines in your program, tell the 
BASIC OBJECT CODE LOADER how many DATA lines of object code follow. 
Now the OBJECT CODE LOADER can “know” how many DATA lines to read, 
without reading too few or too many. In this case, DATA lines 600 and 620 tell the 
OBJECT CODE LOADER that the object code may be found in DATA lines 1000 
thru 1021. 

Note that DATA lines 600 and 620 each contain one value, whereas the remain- 
ing DATA lines each contain ten values. 

Now you are ready to RUN the OBJECT CODE LOADER. Unless you're a bet- 
ter typist than I am, you probably made some mistakes while typing in the DATA 
lines from Appendix E1. Don’t worry; the incorrect data will not be blindly loaded 
into memory. If the BASIC OBJECT CODE LOADER detects a checksum error, it 
will tell you so, like this: 


CHECKSUM ERROR IN DATA STATEMENT 1012 
START ADDRESS GIVEN IN BAD DATA LINEIS 4442 


This means that data statement 1012 has a checksum error: ie, bad data. To 
help you double check, the second line of the error message specifies the start ad- 
dress given by the bad data line: this is the first number in the offending data line. 
These two items of information should make it easy for you to find the bad data 
line—just look for the DATA statement whose line number is 1012 and whose first 
value is 4442. That’s the DATA statement you entered incorrectly. Now you need 
only eyeball the ten numbers in that line, comparing them to the corresponding 
DATA statement in Appendix El, and you should quickly find the number or 
numbers you entered incorrectly. Fix that DATA statement, and RUN the LOADER 
again. 

When you have entered all of the DATA statements correctly, RUNning the 
LOADER will load the object code they specify into memory. The OBJECT CODE 
LOADER will then print: 


LOADED LINES aaaa THROUGH bbbb SUCCESSFULLY 
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where ‘aaaa’ is the number of the first DATA line of object code, and ‘bbbb’ is the 
number of the last DATA line of object code in the program. This message tells you 
that the BASIC OBJECT CODE LOADER has read and POKE’d the indicated range 
of DATA statements into memory. 

When you see this message, you have verified the program, so SAVE it on a 
cassette. Then make up a new BASIC program, containing the OBJECT CODE 
LOADER and the next group of DATA statements from an E Appendix. (Remember 
not to append DATA lines from more than one E Appendix to the same BASIC pro- 
gram.) Store in lines 600 and 620 the line numbers of the first and last DATA 
statements you copied from the E Appendix. Verify and SAVE this program as well, 
and then continue in this manner until you have entered, verified, and SAVE’d 
BASIC programs containing all of the DATA statements in Appendices E1 thru E10, 
as well as the DATA statements in the E Appendix containing system data for your 
computer (one of the Appendices E11 thru E14). RUNning all of those BASIC pro- 
grams will then enter all of the software presented in this book into your computer's 
memory. 

At this point, you should be ready to transfer control from your computer's 
BASIC interpreter to the VISIBLE MONITOR. 


Activating the Visible Monitor 


Once you have entered the object code for the Screen Utilities, the Visible 
Monitor, and the System Data Block into your system, you can activate the Visible 
Monitor by causing the 6502 in your computer to execute a JSR (jump to subroutine) 
to $1207. 

Using the Ohio Scientific C-IP ROM monitor, you can activate the Visible 

Monitor simply by typing: 


1207G 


Using the Apple JI ROM monitor, you can call the Visible Monitor with the 
command: 


G1207 [RETURN] 


Using the Atari 400 or 800 with its BASIC cartridge plugged in, you can invoke 
the Visible Monitor with the BASIC command: 
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X=USR(4615) [RETURN] 


In Atari BASIC, you can call a machine-language subroutine by passing the ad- 
dress of that subroutine as a parameter to the USR function. Since $1207 is 4615 in 
decimal, the command X =USR(4615) causes Atari BASIC to call the subroutine at 
$1207. (The value returned by that subroutine will then be stored in the BASIC 
variable X — not in the 6502's X register. But that doesn’t concern us because the 
Visible Monitor isn’t designed to return a value to its caller.) 

Using the PET 2001, you can invoke the Visible Monitor from BASIC in the im- 
mediate mode with the following BASIC command: 


SYS (4615) 


When you press (RETURN), you'll see the Visible Monitor display, because SYS 
(4615) causes BASIC to call the subroutine at address 4615 decimal, which is 
$1207—the entry point for the Visible Monitor. 

If and when you press “Q” to quit the Visible Monitor, the Visible Monitor will 
return to its caller — PET BASIC. (The Visible Monitor doesn’t leave much room for 
a PET BASIC program, since your BASIC program and its arrays, variables, etc 
cannot require memory beyond $0FFF, but the Visible Monitor should work very 
well with a small PET BASIC program. In any case, it’s reassuring to have a new 
program such as the Visible Monitor return to a familiar one such as the PET BASIC 
interpreter.) 

Once you have activated the Visible Monitor, you should see its display on the 
screen. If you don’t see such a display, then the Visible Monitor has not been entered 
properly into your system's memory; perhaps you failed to enter the display code 
properly. 

If you do see the Visible Monitor display on the screen, press the space bar. The 
display should change — specifically, the displayed address should increment, and 
fields 1 and 2, immediately to the right of the displayed address, may also change. 

If nothing changes when you press the space bar, then the display code prob- 
ably works fine, but you failed to enter the UPDATE code properly. 

If the space bar does change the display, then test out the other functions of the 
Visible Monitor: press RETURN to decrement the selected address; press hexa- 
decimal keys to select a different address; then select an address somewhere in screen 
memory and place new data into that address. If you picked a place in display mem- 
ory that is not cleared by the Visible Monitor (ie: a place not in the top five rows of 
the screen), then you should be able to place arbitrary characters on the screen just 
by using the Visible Monitor to store arbitrary values in the selected address. 

If your Visible Monitor fails to perform properly, you may have entered it into 
memory incorrectly. Compare the DATA statements you appended to the OBJECT 


ENTERING THE SOFTWARE INTO YOUR SYSTEM 169 


CODE LOADER with the DATA statements in the E Appendices. Remember: if 
even 1 byte is entered incorrectly, then in all likelihood the Visible Monitor will fail 


to function. 

To extend the Visible Monitor as described in Chapter 12, store a $BO in ad- 
dress $13D2. To disable the features described in Chapter 12, store a $10 in address 
$13D2. Now you're really getting your hands on the machine, reaching into memory 
and operating on the bytes, and with that kind of control, you can do almost 
anything. 


NOTE: 

The author intends to provide the software in this book for sale on cassettes 
compatible with the Apple II, Atari, Ohio Scientific, and PET computers. If you 
prefer to load your software from cassette, rather than enter it in by hand, contact 
the author through BYTE Books. 
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Appendices 


Appendix Al: 


Hexadecimal Conversion Table 


HEX 


TMOMWDrPOMNAURWNHO 


112 
128 
144 
160 
176 
192 
208 
224 
240 


113 
129 
145 
16] 
177 
193 
209 
229 
241 


114 
130 
146 
162 
178 
194 
210 
226 
242 


115 
131 
147 
163 
179 
195 
211 
227 
243 


101 
117 
133 
149 
165 
181 
197 
213 
229 
245 


102 
118 
134 
150 
166 
182 
198 
214 
230 
246 


104 
120 
136 
152 
168 
184 
200 
216 
232, 
248 


105 
121 
137 
153 
169 
185 
201 
217 
233 
249 


106 
122 
138 
154 
170 
186 
202 
218 
234 
290 


107 
123 
139 
155 
171 
187 
203 
219 
235 
291 


108 
124 
140 
156 
172 
188 
204 
220 
236 
202 


109 
125 
141 
157 
173 
189 
205 
221 
237 
293 


110 
126 
142 
158 
174 
190 
206 
222 
238 
204 
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Appendix A2: 
ASCIl Character Codes 


Code Char Code Char Code Char Code Char 
00 NUL 20 SP 40 @ 60 . 
01 SOH 21 { 41 A 61 a 
02 STX 22 42 B 62 b 
03 ETX 23 # 43 C 63 c 
04 EOT 24 $ 44 D 64 d 
05 ENQ 25 % 45 E 65 e 
06 ACK 26 & 46 F 66 f 
07 BEL 27 ' 47 G 67 g 
08 BS 28 ( 48 H 68 h 
09 HT 29 ) 49 I 69 i 
0A LF 2A * 4A J 6A j 
OB VT 2B + 4B K 6B k 
0C FF 2C , 4C L 6C l 
OD CR 2D — 4D M 6D m 
OE SO 2E . 4E N 6E n 
OF SI 2F / 4F O 6F oO 
10 DLE 30 0 50 ?P 70 op 
11 DC 31 1 51 QO 71 3q 
12 DC2 32 2 52 R 72 r 
13 DC3 33 3 53 S 73 S 
14 DC4 34 4 54 T 74 t 
15 NAK 35 5 55 U 79 u 
16 SYN 36 6 56 V 760 V 
17 ETB 37 7 57 W 77 Ww 
18 CAN 38 8 58. X 78 x 
19 EM 39 9 59 Y 79 y 
1A SUB 3A : 5A Z 7A Zz 
1B ESC 3B : 5B [ 7B { 
1C FS 3C < 5C \ 7C 
1D GS 3D = 5D | 7D } 
1E RS 3E > 5E A 7E ~ 
1F US 3F ? 5F __ 7F DEL 
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Appendix A3: 


6502 Instruction Set — Mnemonic List 


ADC Add Memory to Accumulator with Carry 
AND “AND” Memory with Accumulator 

ASL Shift Left One Bit (Memory or Accumulator) 
BCC Branch on Carry Clear 

BCS Branch on Carry Set 

BEQ Branch on Result Zero 

BIT Test Bits in Memory with Accumulator 
BMI Branch on Result Minus 

BML Branch on Result not Zero 

BPL Branch on Result Plus 

BRK Force Break 

BVC Branch on Overflow Clear 

BVS Branch on Overflow Set 

CLC Clear Carry Flag 

CLD Clear Decimal Mode 

CLI Clear Interrupt Disable Bit 

CLV Clear Overflow Flag 

CMP Compare Memory and Accumulator 
CPX Compare Memory and Register X 

CPY Compare Memory and Register Y 

DEC Decrement Memory 

DEX Decrement Register X 

DEY Decrement Register Y 

EOR “Exclusive Or” Memory with Accumulator 
INC Increment Memory 

INX Increment Register X 

INY Increment Register Y 
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JMP Jump to New Location 
JSR Jump to New Location Saving Return Address 


LDA Load Accumulator with Memory 

LDX Load Register X with Memory 

LDY Load Register Y with Memory 

LSR Shift Right One Bit (Memory or Accumulator) 
NOP No Operation 

ORA “OR” Memory with Accumulator 


PHA Push Accumulator on Stack 


PHP Push Processor Status on Stack 
PLA Pull Accumulator from Stack 
PLP Pull Processor Status from Stack 


ROL Rotate One Bit Left (Memory or Accumulator) 
ROR Rotate One Bit Right (Memory or Accumulator) 


RTI Return from Interrupt 
RTS Return from Subroutine 
SBC Subtract Memory from Accumulator with Borrow 


SEC Set Carry Flag 

SED Set Decimal Mode 

SEI Set Interrupt Disable Status 
STA Store Accumulator in Memory 
STX Store Register X in Memory 
oTY Store Register Y in Memory 


TAX Transfer Accumulator to Register X 
TAY Transfer Accumulator to Register Y 
TSX Transfer Stack Pointer to Register X 
TXA Transfer Register X to Accumulator 
TXS Transfer Register X to Stack Pointer 


TYA Transfer Register Y to Accumulator 
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00 — BRK 

01 — ORA — (Indirect,X) 
02 — Future Expansion 

03 — Future Expansion 
04 — Future Expansion 

05 — ORA — Zero Page 
06 — ASL — Zero Page 
07 — Future Expansion 

08 — PHP 

09 — ORA — Immediate 
OA — ASL — Accumulator 
OB — Future Expansion 
OC — Future Expansion 
0D — ORA — Absolute 
OE — ASL — Absolute 

OF — Future Expansion 


10 — BPL 

11 — ORA — (Indirect), Y 

12 — Future Expansion 

13 — Future Expansion 

14 — Future Expansion 

15 — ORA — Zero Page,X 
16 — ASL — Zero Page,X 

17 — Future Expansion 
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6502 Instruction Set — Opcode List 


18 — CLC 

19 — ORA — Absolute, Y 
1A — Future Expansion 

1B — Future Expansion 

1C — Future Expansion 

1D — ORA — Absolute, X 
1E — Future Expansion 

1F — Future Expansion 


20 — JSR 

21 — AND — (Indirect,X) 
22 — Future Expansion 

23 — Future Expansion 

24 — Bit — Zero Page 

25 — AND — Zero Page 
26 — ROL — Zero Page 
27 — Future Expansion 

28 — PLP 

29 — AND — Immediate 
2A — ROL — Accumulator 
2B — Future Expansion 
2C — BIT — Absolute 
2D — AND — Absolute 
2E — ROL — Absolute 
2F — Future Expansion 
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30 — BMI 

31 — AND — (Indirect), Y 
32 — Future Expansion 

33 — Future Expansion 

34 — Future Expansion 

35 — AND — Zero Page,X 
36 — ROL — Zero Page,X 
37 — Future Expansion 

38 — SEC 

39 — AND — Absolute, Y 
3A — Future Expansion 
3B — Future Expansion 
3C — Future Expansion 
3D — AND — Absolute,X 
3F — Future Expansion 


40 — RTI 

41 — EOR — (Indirect,X) 
42, — Future Expansion 
43 — Future Expansion 
44 — Future Expansion 
45 — EOR — Zero Page 
46 — LSR — Zero Page 
47 — Future Expansion 
48 — PHA 

49 — EOR — Immediate 
4A — LSR — Accumulator 
4B — Future Expansion 
4C — JMP — Absolute 
4D — EOR — Absolute 
4E — LSR — Absolute 
4F — Future Expansion 


50 — BVC 

51 — EOR — (Indirect), Y 
52 — Future Expansion 

53 — Future Expansion 

54 — Future Expansion 

55 — EOR — Zero Page,X 
56 — Zero Page,X 

57 — Future Expansion 
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58 — CLI 

59 — EOR — Absolute, Y 
5A — Future Expansion 
5B — Future Expansion 
5C — Future Expansion 
5D — EOR — Absolute,X 
5E — LSR — Absolute,X 
5F — Future Expansion 


60 — RTS 

61 — ADC — (Indirect,X) 
62 — Future Expansion 

63 — Future Expansion 

64 — Future Expansion 

65 — ADC — Zero Page 
66 — ROR — Zero Page 
57 — Future Expansion 

68 — PLA 

69 — ADC — Immediate 
6A — ROR — Accumulator 
6B — Future Expansion 
6C — JMP — Indirect 

6D — ADC — Absolute 
6E — ROR — Absolute 
6F — Future Expansion 


70 — BVS 
71 — ADC — (Indirect), Y 


72 — Future Expansion 


73 — Future Expansion 

74 — Future Expansion 

75 — ADC — Zero Page,X 
76 — ROR — Zero Page,X 
77 — Future Expansion 

78 — SEI 

79 — ADC Absolute, Y 

7A — Future Expansion 

7B — Future Expansion 

7C — Future Expansion 
7D — ADC — Absolute,X 
7E — ROR — Absolute,X 
7F — Future Expansion 


80 — Future Expansion 
81 — STA — (Indirect,X) 
82 — Future Expansion 
83 — Future Expansion 
84 — STY — Zero Page 
85 — STA — Zero Page 
86 — STX — Zero Page 
87 — Future Expansion 
88 — DEY 

89 — Future Expansion 
8A — TXA 

8B — Future Expansion 
8C — STY — Absolute 
8D — STA — Absolute 
8E — STX — Absolute 
8F — Future Expansion 


90 — BCC 

91 — STA — (Indirect),Y 
92 — Future Expansion 

93 — Future Expansion 

94 — STY — Zero Page,X 
95 — STA — Zero Page,X 
96 — STX — Zero Page, Y 
97 — Future Expansion 

98 — TYA 

99 — STA — Absolute, Y 
9A — TXS 

9B — Future Expansion 
9C — Future Expansion 
9D — STA — Absolute,X 
9E — Future Expansion 

OF — Future Expansion 


AO — LDY — Immediate 
Al — LDA — (Indirect,X) 
A2 — LDX — Immediate 
A3 — Future Expansion 
A4 — LDY — Zero Page 
A5 — LDA — Zero Page 
Aé — LDX — Zero Page 
A7 — Future Expansion 


A8& — TAY 
A9 — LDA — Immediate 
AA — TAX 


AB — Future Expansion 
AC — LDY — Absolute 
AD — LDA — Absolute 
AE — LDX — Absolute 


.AF — Future Expansion 


Bo — BCS 

B1 — LDA — (Indirect) ,Y 
B2 — Future Expansion 

B3 — Future Expansion 

B4 — LDY — Zero Page,X 
B5 — LDA — Zero Page,X 
B6 — LDX — Zero Page, Y 
B7 — Future Expansion 


B8 — CLV 
B9 — LDA — Absolute, Y 
BA — TSX 


BB — Future Expansion 
BC — LDY — Absolute,X 
BD — LDA — Absolute,X 
BE — LDX — Absolute, Y 
BF — Future Expansion 


Co — CPY — Immediate 
C1 — CMP — (Indirect,X) 
C2 — Future Expansion 
C3 — Future Expansion 
C4 — CPY — Zero Page 
C5 — CMP — Zero Page 
Cé — DEC — Zero Page 
C7 — Future Expansion 


C8 — INY 
C9 — CMP — Immediate 
CA — DEX 


CB — Future Expansion | 
CC — CPY — Absolute a 
CD — CMP — Absolute 

CE — DEC — Absolute 

CF — Future Expansion 
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DO — BNE 

D1 — CMP — (Indirect), Y 
D2 — Future Expansion 

D3 — Future Expansion 
D4 — Future Expansion 

D5 — CMP — Zero Page,X 
Dé — DEC — Zero Page,X 
D7 — Future Expansion 
D8 — CLD 

D9 — CMP — Absolute, Y 
DA — Future Expansion 
DB — Future Expansion 
DC — Future Expansion 
DD — CMP — Absolute,X 
DE — DEC — Absolute,X 
DF — Future Expansion 


EO — CPX — Immediate 
E1 — SEC — (Indirect, X) 
E2 — Future Expansion 
E3 — Future Expansion 
E4 — CPX — Zero Page 
E5 — SBC — Zero Page 
E6 — Zero Page 

E7 — Future Expansion 
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E8 — INX 

E9 — SBC — Immediate 
EA — NOP 

EB — Future Expansion 
EC — CPX — Absolute 
ED — SBC — Absolute 
EE — INC — Absolute 
EF — Future Expansion 


FO — BEQ 

F1 — SBC — (Indirect), Y 
F2 — Puture Expansion 

F3 — Future Expansion 

F4 — Future Expansion 

F5 — SBC — Zero Page,X 
F6 — INC — Zero Page,X 
F7 — Future Expansion 

F8 — SED 

FQ — SBC — Absolute, Y 
FA — Future Expansion 
FB — Future Expansion 
FC — Future Expansion 
FD — SBC — Absolute,X 
FE — INC — Absolute,X 
FF — Puture Expansion 


Appendix A5: 


Instruction Execution TIMES dn cock cyctes) 


YO 
Y 
3-4 
s < <x > x >» # 
BS 2238 8 y ¢ 3 = 3 4 
Oo S) o n n a ry 7 . _s wo 
ZF es § FS 2 SEES 
ADC 2 3 4 4 4* 4* 6 5* 
AND 2 3 4 4 4* 4* 6 5* 
ASL 2 . 5 6 6 7 . ; 
BCC . ; . . . . 2** 
BCS . . . . . ; ; 2** 
BEQ : . . . : . 2** 
BIT : . 3 4 . ; . . 
BMI : . . : . : : 2** 
BNE . . . . ; ; ; 2** 
BPL . . . : . . . 2** 
BRK ; . . . : . . 
BVC : : . . . . 2** 
BVS . ; ; : . . . 2** 
CLC 2 
CLD 2 
CLI 2 
CLV . . . : . 2 . ; . 
CMP 2 3 4 4 4* 4* , . 6 5* 
CPX 2 3 4 
CPY 2 3 : 4 . 
DEC ; 5 6 6 7 
DEX 2 
DEY 2 


EOR 2 3 4 4 4* 4* , . 6 9§ 


Accumulator 
Immediate 
Zero Page 
Zero Page, X 
Zero Page, Y 
Absolute 
Absolute, X 
Absolute, Y 
Implied 
Relative 
(Indirect), X 
(Indirect), Y 
Absolute Indirect 


ZZ 
~O 
oO 
oO 
7“ oN 
Nv 


4* 4” 6 5* 


r 
O 
me 
° RO BO ° 
Mm W W QW 
oO 
ih 
Oo fF FF FO W> 
= 


a 
rt 
> 

m Bm OG GQ 


4 
x 
* 
Oo 
rt = 
pf 


a | 
>< 
> 
NNN NN WN ° 


Add one cycle if indexing across page boundary 
Add one cycle if branch is taken, Add one additional if branching operation 
crosses page boundary 
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AADpDeN dix Aé: 


6502 Opcodes by Mnemonic and 
Addressing Mode 


Addressing Modes 


5 
PEESEl pep ee Bee 
5 5 5 Synph OO U Fe =< 
se 85 8B BB BE 6 oO SG 
O O oO 7 2 Ff & & & « O09 Q Q 
22804888 8 gd & & 
<<«q#<«¢«¢44444 282 N NN 
Mnemonics SSS SES SE SE EE SE SE SS SS TS SS SES SS SS SS SS SE ES SE FE 8S er Sr 
ADC 6D 7D 79 , 69 . 61 71 65 75 
AND 2D 3D 39 29 . 21 31 =~, 25 35 
ASL 0E 1E , OA, 06 16 
BCC tis. 90 
BCS BO 
BEO Oi; FO. 
BIT 2C 24 
BMI oo 30 
BNE DO 
BPL 10 
BRK 00 
BVC . 50 
BVS 70 
CLC 18, 
CLD D8 
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Addressing Modes 


6 
~~ me [2 <M za] * " 
FE & 5 y; re em 9 Q Q 
27 2 FS FAY Y Ye EE & 
ee re A gw wg sa) mo 
2232598 e555 5 22 8 
m U 
<<< < g 244424282 N NN 
CLV B8 
CMP CD DD D9 C9 Ci D1 C5 D5 
CPX EC EO E4 
CPY CC CO C4 
DEC CE DE . C6 D6 
DEX : CA 
DEY . . . . 88. . . . . 
EOR 4D 5D 59 49 : 41 51 45 55 
INC EE FE . E6 F6 
INX E8 . . 
INY . C8. 
JMP 4C . 6C 
JSR 20 . 
LDA AD BD B9 AQ Al Bl AS BS5 
LDX AE . BE A2 A6é . 
LDY AC BC AO A4 B4 
LSR 4E SE 4A, . . 46 56 
NOP . . . . EA . . . . 
ORA OD 1D 19 QO. O01 11 05 15 
PHA : 48 
PHP 08 
PLA . 68 
PLP . . . 28 . . 
ROL 2E 3E 2A . 26 36 
ROR 6E ZE 6A . 66 76 


RTI . 40 
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Addressing Modes 


6 
x om Fm <x >» [x - * 

= Rs & he em Q Y Y 
= 5 es Sa GOGO Se SEE 
yom vA Af 8 8 #8 & Po BB 
O90 0 5 8 3 & & & «9 9 Q 
2228965 60983 & & & 
a<<#<«¢<¢gq aA 24464 N NN KN 

Mnemonics == =SS 3 SS SS SS SS SS SS SSeS SS55=5 

RTS Cook . 60 -o too. 

SBC ED FD fF9 Eo, El Fl E5 FS 

SEC 38 

SED F8 

SEI Cook, 78 oo, oo 

STA 8D 9D 99 81 91 85 95 

STX 8E 86 

STY 8C oo, 84 94 

TAX AA 

TAY A8 

TSX BA 

TXA 8A 

TXS 9A 


Appendix BI: 
The Ohio Scientific Challenger |-P 


The Ohio Scientific Challenger I-P is the simplest of the systems considered in 
this book. Its screen is mapped in the manner described in Chapter 5: the lowest 
screen address is in the upper left corner, and the screen addresses increase uniform- 
ly as you move to the right and down the screen. Any ASCII character stored in 
screen memory will be displayed properly on the video screen; it is not necessary to 
replace the ASCII character with a system-specific display code. Therefore, the 
system data block may be initialized as shown in Appendices C13 and E12. 

Incidentally, the OSI C-IP’s screen TVT subroutine at $BF2D stores the relative 
location of the cursor in $0200. Modify $0200 and you change the next location at 
which a character will be printed to the screen. 

If you have an Ohio Scientific BASIC-in-ROM system other than the 
Challenger I-P, it may have different character input/output routines. If so, examine 
the following locations: 


BASIN $FFEB General character-input routine for OSI 
BASIC-in-ROM. 

BASOUT  $FFEE General character-output routine for 
OSI BASIC-in-ROM. 


For example, in the OSI C-IP you can get a character from the keyboard by call- 
ing $FEED, or you may call OSI’s general character-input routine at $FFEB. This 
routine gets a character from the keyboard unless the SAVE flag is set, in which case 
it gets a character from the cassette input port. Similarly, in the OSI C-IP you can 
print a character to the screen by calling $BF2D, or send a character to the cassette 
output port by calling $FCB1. Or, you can simply call OSI’s general character- 
output routine at $FFEE, which outputs the accumulator to the screen and, if the 
SAVE flag is set, echoes to the serial port as well. 

Thus, even if you don’t know the addresses of your OSI system’s specific I/O 
routines, you can set ROMKEY =$FFEB and ROMTVT=$FFEE. When you RESET 
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your system, the Ohio Scientific Operating System will automatically “hook” those 
routines to your keyboard for input and to your screen for output. 


Setting the Top of Memory 


If you wish to load object code using the BASIC OBJECT CODE LOADER (see 
Chapter 13) you must first set the top of memory available to your BASIC inter- 
preter to $OFFF. Do this as part of cold-starting BASIC. To cold-start BASIC, turn 
on your OSI computer, press the (BREAK) key, and then press ‘C’. The screen will 
prompt, “Memory Size?” Type “4095” and then press (RETURN). Now BASIC will 
use the lowest 4K of RAM, leaving memory from $1000 and up available to 
machine-language programs. 

With the top of memory set to $0FFF, you may enter and RUN the BASIC pro- 
grams that load object code into your computer’s memory. 


Calling Machine-Language Code from BASIC 


To call a machine-language subroutine from BASIC, first set the pointer at 
$O00B, OOOC so it points to the subroutine, and then call that subroutine with 
BASIC’s USR function, either in the immediate mode or from within a BASIC pro- 
gram. For example, let's say you wish to call the Visible Monitor from BASIC. The 
Visible Monitor’s entry point is at $1207, so we must make $000B,000C point to 
$1207. This means storing 07 in $000B, and storing $12 (decimal 18) in $000C. The 
following line will do that for us: 


POKE 11,7:POKE 12,18 


Now we may invoke the Visible Monitor with the line: 


X = USR(X) 


or with any other line that uses the USR function. 

Note that the USR function does not set a BASIC variable equal to the contents 
of some register in the 6502; in fact, the line X = USR(X) will not change the value of 
the BASIC variable X at all. Thus, the USR function lets you activate any desired 
machine-language subroutine, but it doesn’t let you capture a value returned by such 
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a subroutine. If you want a machine-language subroutine to return some value 
which you can then use in a BASIC program, you'll have to make the machine- 
language subroutine store its value or values somewhere in memory, and then have 
the BASIC program PEEK that memory location after it has called the machine- 
language subroutine via the USR function. 
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Appendix 
The PET 2001 


Display Memory 


The PET screen is mapped conventionally, with the HOME address at $8000 
(32,768 decimal). It has 25 rows, each consisting of 40 characters. The address of 
each screen location is 40 ($28) greater than the address of the screen location direct- 
ly above it. Thus, the screen parameters for the PET 2001 are: 


HOME -WORD $8000, 

ROWINC _— .BYTE $28 

TVCOLS BYTE 39 (We count columns from zero.) 
TVROWS _ BYTE 24 (We count rows from zero.) 
PET Character Set 


However, although the PET screen buffer is mapped conventionally, you can- 
not simply store an ASCII character in screen memory if you wish to see that ASCII 
character on the screen. The PET character generator introduces a few wrinkles and 
you must compensate carefully if you are to display ASCII characters properly on 
the screen, 

For example, if you store $31 (the code for an ASCII “1”) in the PET’s display 
memory, then you will see a “1” displayed on the screen. So far, so good. The same 
is true for all ASCII digits and for some ASCII punctuation marks. But if you store 
$45 (ASCII code for an upper case “E’”’) in screen memory, then you won't see an “E” 
on the screen: you'll see either a lowercase “e” or else a horizontal line segment much 
longer than a hyphen. What's happening? 

The PET 2001 features a memory location, $E84C (59468) which has a special 
effect on the video-display circuitry, The value stored in that address selects for the 
video display one character set or another. 
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To see how the choice of character set affects the display, enter the following 
BASIC program into your PET: 


100 REM DISPLAY PET CHARACTER SET 
110 REM IN 16 BY 16 MATRIX 

120 REM 

130 HOME=32768 

140 CHAR=0 

150 FOR ROW=0T0O 15 

160 FOR COL=0 TO 15 

170 POKE (HOME+COL)+(40*ROW),CHAR 
180 CHAR=CHAR+1 

190 NEXT COL 

200 NEXT ROW 

210 END 


Before running this program, clear the screen by holding down the PET’s SHIFT 
key at the same time that you depress the CLR/HOME key. When the screen is 
clear, use the CRSR SOUTH key to move the cursor down seventeen rows. Then 
type RUN and press RETURN. You'll see one PET character set appear in a 16 by 16 
matrix in the upper left portion of your PET’s screen. 

What you'll see on your screen will look like table B2.1 (without the labeled 
axes). 


Table B2.1: The PET character set. 


RIGHT NYBBLE OF CHARACTER 
—0 —1 —2 —3 —4 —5 ~6 ~7 —8 -9—A-B-C-—D-E-F 


a {\] 
m A sa” rot 
34 1-—s 
onNnn~x 1 © 
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In this chart, special graphic characters are indicated by an underline. Look at 
your PET screen to see those special graphics in all their glorious detail. 

Note that the characters for $80 thru $FF are the same as for $00 thru $7F, but in 
reverse intensity. The low 128 characters ($00 thru $7F) are “normal” — that is, 
white characters on a dark background; whereas the high 128 characters ($80 thru 
SFF) are in reverse video — dark characters in a white background. An “A” in nor- 
mal intensity may be displayed by storing an $01 somewhere in the screen memory; 
a reverse intensity “A” may be displayed by storing an $81 somewhere in screen 
memory. From this pattern we can derive a handy corollary: to reverse the intensity 
of any character on the screen, simply reverse its bit 7. You don’t even have to know 
what the character represents; just toggle bit 7 and you change its intensity. 

The chart in figure B2.1 (and on your PET screen) shows one complete 
character set because the BASIC program stores every 8-bit value, from $00 thru 
$FF, into the screen buffer. But I mentioned two character sets. What must you do to 
see the second character set? 

If the cursor is within three rows of the bottom of the screen, move it up so that 
it is at least three rows above the bottom of the screen. This will insure that you 
don't scroll part of the character set up off the screen when you execute the following 
BASIC command in the immediate mode: 


POKE 59468,12 


Did that change the display? If not, then execute the following BASIC com- 
mand in the immediate mode (again being sure that the cursor is at least three rows 
from the bottom of the screen): 


POKE 59468,14 


Depending on the value stored in 59468 ($E84C), one or another character set 
will be displayed. The values of the bytes stored in screen memory will not change 
when you change the contents of $E84C, but in some cases the displayed characters 
will change. In the ranges 00 thru $3F and $80 thru $BF, the two character sets are 
identical. But in the ranges $40 thru $7F and $CO thru $FF, they differ. 

Both character sets include numbers, uppercase letters, and certain punctuation 
marks; but only one character set includes lowercase letters and the remaining punc- 
tuation marks. The second character set lacks lowercase letters and these punctua- 
tion marks, offering instead a set of special graphics characters, including playing- 
card suits. POKE 59468,14 to select the former character set (thereby making possi- 
ble the display of all printable ASCII characters); POKE 59468,12 to select the latter 
character set (thereby making possible the display of the gaming graphics). 
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FIXCHR 


Note that neither character set corresponds directly to ASCII. If you have an 
ASCII character in the accumulator and you want to display the appropriate graphic 
character on the screen, you must first call FIXCHR (as TV.PUT does, in Chapter 5). 
When an ASCII character is passed in the accumulator, FIXCHR must return in the 
accumulator the proper PET display code for that character. FIXCHR’s caller may 
then store this display code in memory, thereby placing on the screen an appropriate 
image of the original ASCII character. 

How will FIXCHR work? By examining the PET character set and comparing it 
to Appendix A2, ASCII codes, we can see a solution in the form of the following 
algorithm: 


® If a character is in the range $40 thru $5F, subtract $40 and return. 

@ If a character is in the range $20 thru $3F, return. 

® If a character is in the range $60 thru $7A, store a decimal 14 in 59468 to select 
the character set that has lower case letters; and return. 

@ All other input characters are either ASCII control codes, for which there are 
no agreed-upon graphics, or else PET special graphics characters, so just 
return. 


Examine the tables yourself to see if this algorithm will work. 


FIXCHR 
FIXCHR AND #$7F Clear bit 7, so the character will be in 
the legal ASCII range. 
SEC Prepare to compare. 
CMP #$40 If it’s less than $40, return. 
BCC FIXEND 
Okay. The character is greater than $40. 
CMP #$60 Is it greater than $5F? 
BCS LOWERC If so, handle it as lowercase. 
Okay. The character is in the range 
$40-$5F. 
SBC #$40 Subtract $40 for proper display code. 
RTS 
LOWERC _ LDX #14 Since we have a lowercase letter, let's 
select the character set that 
STX 59468 has lowercase letters. 
FIXEND RTS Return, bearing PET display code for 


character originally in accumulator. 


Call FIXCHR with an ASCII character in the accumulator. FIXCHR will return 
with the corresponding PET display code in the accumulator. When it returns, its 
caller may store the accumulator anywhere in screen memory, thus displaying an 
image of the original ASCII character. 


PET Keyboard Input Routine 


To get an ASCII character from the PET keyboard, call the following 
subroutine: 


PETKEY JSR $FFE4 Call PET ROM key scan routine. 
CMP #0 Zero means no key. 
BEQ PETKEY If no key, scan again. 


A new key is in the accumulator. If the 
shift key was down, bit 7 is set. 


AND #$7F So clear bit 7, just to be sure we've got 
a legal ASCII character. 

RTS Return with ASCII character in the ac- 
cumulator. 


This subroutine yields the uppercase ASCII code for any letter key that you 
depress, and the proper ASCII code for any digit key or punctuation key. 


PET TVT Routine 


To print an ASCII character to the screen, call $FFD2, a PET ROM routine I 
will refer to as PETTVT. 

Any printable ASCII character passed to $FFD2 (or, apparently, to $E3EA or 
$F230) will be printed properly to the screen at the PET’s current TVT screen loca- 
tion. You may change the PET’s current TVT screen location (which is not the same 
as the current location used by the screen utilities in Chapter 5) by calling PETT VT 
with the accumulator holding any of the control codes from Table B2.1. 
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Table B2.1: Control codes that affect the next character to be printed by PETTVT. 


Character Name Code Function 


CURSOR NORTH $91 Move current location up by one row. 


CURSOR EAST $1D Move current location one column to the right. 

CURSOR SOUTH $11 Move current location down by: one row. 

CURSOR WEST $9D Move current location left by one column. 

INSERT $94 Move current character, and all characters to its 
right, one column to the right. 

DELETE $14 Move current character, and all characters to its 
right, one column to the left. 

HOME $13 Set current location to upper left of screen. 
CLEAR $93 Set current location to the upper left corner and 
clear the screen. 

REVERSE $12 Select reverse video for following characters. 
REVERSE-OFF $92 Select normal video mode for following 
characters, 


These control codes may be passed directly to PETTVT, or they may be in- 
cluded within a string of characters to be printed by “PRINT:” or “PR.MSG.” For 
example, if you wish to clear the screen before printing a message, just put the 
CLEAR character ($93) at the beginning of your message string, immediately follow- 
ing the STX. The message-printing subroutine will get the CLEAR character and 
pass it to PR.CHR, which, in turn, will pass it through the ROMTVT vector on to 
the PETTVT routine. The PETTVT routine will then clear the screen and set the cur- 
rent location to the upper left corner of the screen. 

The next character in the string will then be printed in the upper left corner of a 
clear screen. If, instead of printing your message at the top row of a clear screen, 
you'd prefer to print it in the fifth row of a clear screen, just follow the CLEAR 
character with four CURSOR-SOUTH characters ($11, $11, $11, $11), and follow 
the four cursor-south characters with the text of your message. Following the text of 
your message, of course, you must include an ETX ($FF). 

You might never use the PETTVT control codes, but it’s good to know they’re 
available, should you ever want your PET’s display screen to perform as something 
more than a glass teletype. 


System Data Block 


Torun ona PET 2001, the software in this book requires the system data block 
shown in Appendices C14 and E13. 
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Setting the Top of Memory 


Before you can use the BASIC OBJECT CODE LOADER (presented in Chapter 
12) to load object code into your PET’s memory, you must insure that your PET’s 
BASIC interpreter leaves undisturbed all memory above $0FFF (4095 decimal). The 
PET BASIC interpreter will do as we wish if we set its top-of-memory pointer ap- 
propriately. The top-of-memory pointer specifies the highest address that may be 
used for the storage of BASIC program lines, variables, and strings. Memory above 
that address is off-limits to BASIC. 

As you may know, there is more than one version of the PET 2001 by Com- 
modore. Some PET’s have software in “old” ROMS (REV 2 ROMS), and others 
have software in “new” ROMS (REV 3 ROMS). As far as the software in this book is 
concerned, old ROM PETS and new ROM PETS are the same, since the ROM 
routines we care about are accessible from the same addresses in both old and new 
ROM PETS. Therefore, until now I haven’t even mentioned that the PET 2001 
comes in two flavors. But now you must discover whether you have an old ROM or 
a new ROM PET, because otherwise you won't be able to set the top of memory. 

Old ROM and new ROM PETS each contain a machine-language subroutine to 
clear the screen, but in new ROM PETS that subroutine is at $E229 (57897 decimal), 
and in old ROM PETS that subroutine is as $E236 (57910 decimal). To see what 
ROMS are in your PET, use the PET’s screen editor to place some characters on the 
screen, and then type: 


SYS (57897) 


and press (RETURN). Does the screen clear? If so, you've got a new ROM PET. If 
not, turn off your PET, turn it on, place some characters on the screen, and then 


type: 


SYS (57910) 


and press (RETURN). Does the screen clear? If so, you've got an old ROM PET. If 
not, then your PET contains neither Rev 2 ROMS nor Rev 3 ROMS, and you'll have 
to consult your system’s documentation carefully to discover the address of the top- 
of-memory pointer. 

On old ROM PETS, the top-of-memory pointer is at 134 and 135 ($86,87). On 
new ROM PETS, the top-of-memory pointer is at 52 and 53 ($34,35). Regardless of 
the location of the top-of-memory pointer, we want to set the low byte of that 
pointer equal to $FF (255 decimal), and the high byte of that pointer equal to $0F (15 
decimal), so that the pointer itself points to $0FFF. That will leave memory from 
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$1000 and up available to machine-language programs. 
Thus, we set the top of memory on an old ROM PET with: 


POKE 134,255:POKE 135,15 


Similarly, we set the top of memory on a new ROM PET with: 


POKE 34,255:POKE 35,15 


Once you have set the top of memory available to your PET’s BASIC inter- 
preter, you may enter the BASIC OBJECT CODE LOADER and the DATA 
statements from Appendices E1 thru E11, and from Appendix E13. Remember to set 
the top of memory not only when typing in these DATA statements, but when 
RUNning the OBJECT CODE LOADER, as well. 
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Appendix B3: 
The Apple II 


Apple Display 


The display memory of the Apple II is mapped in a manner that is much more 
complex than the Ohio Scientific or PET computers. On each of these other systems, 
only one portion of memory is mapped to the screen. The screen cannot display the 
contents of any other bank of memory (unless, of course, you copy the contents of 
another bank of memory into the display memory). But the Apple II may display the 
contents of any of four banks of memory: Low-Resolution Graphics and Text Page 
1, Low-Resolution Graphics and Text Page 2, High-Resolution Graphics Page 1, and 
High-Resolution Graphics Page 2. Table B3.1 summarizes the locations of these 
pages in memory. 


Table B3.1: Banks of display memory in the Apple II. 


Hexadecimal Decimal 
Low-Resolution Graphics 
and Text Page 1: $0400-$07FF 1024-2043 
Low-Resolution Graphics 
and Text Page 2: $0800-$0BFF 2048-3071 
Hi-Resolution Graphics 
Page 1: $2000-$3FFF 8192-16383 
Hi-Resolution Graphics 
Page 2: $4000-$5FFF 16384-24575 


Note that each of these display pages takes up much more than one hexadecimal 
page (256 bytes). A display page is simply an area of any size memory, whose con- 
tents may be displayed on the screen. Each low-res display page occupies four hexa- 
decimal pages, and each hi-res display page occupies 32 hexadecimal pages. Why are 
the hi-res display pages bigger than the low-res display pages? Hi-res means high- 
resolution, and higher resolution requires more information. 
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How do you make the video screen show the contents of a given display page? 
You need only store a zero in a particular address. Certain addresses in the Apple II 
signal the video-display circuitry whenever data are written to them. The video- 
display circuitry responds to these signals by displaying the contents of a given bank 
of memory. These special addresses, or display selectors, are given in Table B3.2. 


Table B3.2: Addresses that affect the APPLE II Display. 


Hexadecimal Decimal Label Purpose of Address 

$CO50 — 16304 TXTCLR Store a 0 here to set graphics 
mode. 

$CO051 — 16303 TXTSET Store a O here to set text mode. 

$C052 — 16302 MIXCLR Store a O here to set bottom 
four lines to graphics. 

$C053 —16301 MIXSET Store a O here to select text/ 
graphics mix (bottom four lines 
text). 

$C055 — 16299 HISCR Store a O here to select Page 2. 

$C056 —16298 LORES Store a 0 here to select low- 
resolution graphics and text 
page. 

$C057 — 16297 HIRES Store a O here to select high- 


resolution graphics. 


Space limitations prohibit a discussion in this book of the power of high- 
resolution graphics. The Apple II documentation, however, provides an excellent 
step-by-step guide to the design, display, saving, and loading of high-resolution im- 
ages. I must stress, however, that the software in this book expects the host system 
to have low-resolution graphics, so you'd better tell your Apple II to have low- 
resolution graphics. The software in this book uses the Apple’s low-resolution 
graphics with text page 1 as the screen memory. To select this display page, simply 
press the RESET button on your Apple. If, on the other hand, you wish to select this 
display page under software control, you can do it by calling the subroutine 
LORES1: 


LORES1 PHP Save processor flags. 
PHA Save accumulator. 
LDA #0 Store a 0 in 
STA LOWSCR LOWSCER to select Page 1, 
STA LORES and in LORES to select low-resolution 
graphics. 
PLA Restore accumulator. 
PLP Restore processor flags. 
RTS Return to caller. 
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This subroutine will select low-resolution graphics and text page 1. It preserves 
all flags and registers, and is completely relocatable. 

Even when you've configured your Apple II to low-resolution graphics, your 
job isn’t done. The low-res display of the Apple II is mapped in an unusual manner. 
For any other system you can assume that the address of a given location on the 
screen is simply the address of the location above it, plus some row increment. On 
the Apple II this is not always true. See Table B3.3, Apple II low-res display memory 
map. 


Table B3.3: Apple II low-resolution display. 


Page 1 

Row Address of Address of 
Number Leftmost Column Rightmost Column 
$00 $400 $427 
$01 $480 $4A7 
$02 $500 $527 
$03 $580 $5A7 
$04 $600 $627 
$05 $680 $6A7 
$06 $700 $727 
$07 $780 $7A7 
$08 $428 $44F 
$09 $4A8 $4CF 
SOA $528 $54F 
$0B $5A8 $5CF 
SOC $628 $64F 
$0D $6A8 $6CF 
SOE $728 $74F 
SOF $7A8 $7CF 
$10 $450 $477 
$11 $4D0 G4F7 
$12 $550 $577 
$13 $5D0 $5F7 
$14 $650 $677 
$15 $6D0 $6F7 
$16 $750 $777 
$17 $7D0 S7F7 
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Page 2 


Row Address of Address of 
Number Leftmost Column Rightmost Column 
$00 $800 $827 
$01 $880 $8A7 
$02 $900 $927 
$03 $980 GOAT 
$04 $A00 $A27 
$05 $A80 SAA 
$06 $B00 $B27 
$07 $B80 SBA7 
$08 $828 $84F 
$09 $8A8 $8CF 
SOA $928 $94F 
$0B $9A8 SOCF 
$oC $A28 SA4F 
¢oD S$AA8 SACF 
SOE $B28 $B4F 
$OF $BA8 $BCF 
$10 $850 $877 
$11 $8D0 $8F7 
$12 $950 $977 
$13 $9D0 $OF7 
$14 $A50 $A77 
$15 SADO GAF7 
$16 $BS0 ¢$B77 
$17 $BDO $BE7 


Note that the display addresses do not increase uniformly as we move down, 
row-by-row, through low-res display page 1 or 2. The addresses increase uniformly 
from row 0 thru row 7, but from row 7 to row 8 the display addresses do not in- 
crease; they decrease! Then they increase uniformly through line $0F (15 decimal), 
but from line $0F to line $10 (15 to 16 decimal), the display address plummets again. 
Then from row $10 to row $17 (16 thru 23) the display addresses again increase 
uniformly. 

If you'd like to take a visual tour of the Apple II’s low-res display memory, run 
the BASIC program in listing B3.1. This program will simply poke a blank into each 
address in low-res display page 1, starting at the lowest address and moving to the 
highest address. You'll see that the screen does not fill with blanks in a contiguous 
manner, but follows a pattern of three interleaved parts. 


Listing B3.1: APPLE II low-resolution display, memory-mapper program. 


100 REM APPLE II LOW-RESOLUTION DISPLAY, MEMORY-MAPPER 
105 REM 

108 REM BY KEN SKIER 

110 REM 

120 FIRST=1024: REM START OF LOW-RESOLUTION PAGE 1. 

130 LAST=2043: REM END OF LOW-RESOLUTION PAGE 1. 

1440 CHAR=32: REM CHARACTER TO BE POKED INTO SCREEN 
150 REM WILL BE A WHITE BLANK. 

160 REM 

170 FOR X=FIRST TO LAST 

175 REM FOREACH ADDRESS IN LOW-RESOLUTION PAGE 1. 
180 POKE X,CHAR 

185 REM POKE A WHITE BLANK. THEN, 

190 GOSUB 1000: REM WAIT A MOMENT... 

200 NEXT X: REM BEFORE POKING NEXT ADDRESS. 

210 END 


220 REM 

230 REM 

1000 FOR WAIT=0 TO 100 

1005 REM THIS IS A WAIT SUBROUTINE. 


1010 NEXT WAIT: REM IT SLOWS DOWN PROGRAM SO YOU 
1020 RETURN: REM CAN FOLLOW THE ACTION. 


Must we now write a whole new set of display procedures to accommodate the 
unusual mapping of the Apple II low-res display pages? We could. But the screen 
utilities presented in Chapter 5 will work for the Apple II if we think of the Apple 
low-res screen as three separate screens: the top eight rows are one screen, the 
middle eight rows are another screen, and the bottom eight rows are a third screen. 
Each of these “screens” has a set of screen parameters. 

The sceen utilities in this book will work fine if you limit their scope to a given 
third of the screen. Use TVTOXY only to set a relative screen position within the 
third of the screen that you have selected. Use the screen utilities only for the top 
third of the screen. The middle and bottom thirds of the screen may still be used by 
the PRINT utilities. 

To limit the screen utilities to the top third of low-res display page 1, initialize 
the screen parameters as follows: 


SCREEN “WORD $0400 
TVCOLS — .BYTE $27 
TVROWS — .BYTE $07 
ROWINC _ .BYTE $80 
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If you want to keep text from scrolling into the upper third of the screen, store 
$08 in address $0022. (In BASIC you may do this with the command POKE 34,8.) 

There’s one more quirk to the Apple display. If you store an ASCII character in 
display memory, then you will display a blinking or inverse version of the character. 
Setting bit 7 in an ASCII character code will cause that character to be displayed in 
normal mode (a white character on a black background), rather than as a black 
character on a white background or as a blinking character. 

You may experiment with this feature of the Apple II by using the Apple II 
monitor to store $41 (an ASCII “A”) in a location in low-res display page 1. You'll 
see a blinking “A.” Now store $C1 in-a location in low-res display page 1. You'll see 
a normal “A.” Why? Because $C1 is $41 with bit 7 set. To understand what's hap- 
pening here, look at the Apple II’s character set given in Table B3.4. 


Table B3.4: The Apple II character set. 
RIGHT NYBBLE OF CHARACTER 
—0 —1 —2 —3 —4 —5 —6 —7 —8 -9-A-B—-C-—-D—E —F 
LEFT NYBBLE 


OF CHARACTER 

o— @A BCD EF GHI JK LM NO 
1- P QRS TU VWX YY Zf{\ J -- 
2- fr " £# $ %@ " ( ) * +, / 

3- 0123 45 6 7 8 9 : 3; < = > 7 
4— @ ABCD EF GH IJK LMN O 
5- PQRS TUVWX Y¥ Z[\ J - 
6— r " #€ G$ % ' €( ) * +, - 1. ST 

7— 0123 45 67 8 9 : 3; < = > 7 
8— @ ABCD EF GH IJK LM N O 
9— PQOQRS TUVWX ¥ Z[\ J] - 
A- cf " £#$ $$ %@ ’ ( ) * +, - . Sf 
B- 0123 45 67 8 9 : 3; < = > 7 
C-— @ ABCODEF GH I JK LMN O 
D- PQRS TUVWX YY Zf[\ J -- 
E- ft " €£$ %@ " ( ) * +, = / 

F— 0O123 45 6 7 8 9 : 3; < = > 7 


The Apple II really has only 64 characters in its character set, but it has four 
ways of displaying each character. Thus, the table shows a set of characters at $00 
thru $3F; the same characters, in the same sequence, appear again at $40 thru $7F, at 
$80 thru $BF, and at $CO thru $FF. These represent what I call the first, the second, 
the third, and the fourth quadrants of the character set. 
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Character codes in this first quadrant ($00 thru $3F) will be displayed in reverse 
video: as black characters on a white background. Character codes in the second 
quadrant ($40 thru $7F) will be displayed in a blinking mode. Character codes in the 
third and fourth quadrants ($80 thru $BF and $C0 thru $FF) will be displayed in nor- 
mal mode: as white characters on black background. 

Before we store any ASCII character in screen memory, we must first call FIX- 
CHR, to convert, if necessary, the ASCII character to the host system’s correspond- 
ing display code. In the Apple II, FIXCHR is very simple: 


FIXCHR ORA #580 Set bit 7, so character will be displayed 
in normal mode. 

RTS Return appropriate display code to 
caller. 


1/O Vectors 


The Apple II has a subroutine in read-only memory to get a character from the 
keyboard, and another subroutine to print a character on the screen. However, the 
key-in routine at $FD35 does not return an ASCII code when you press the key for 
an ASCII character; instead, it returns the appropriate ASCII code with bit 7 set. 
Similarly, the screen-printing routine at $FBFD will print an ASCII character to the 
screen, but the character will be in reverse video or blinking. In order to print an 
ASCII character to the screen, you must first set bit 7 and then call $FBFD. Con- 
versely, to get an ASCII character from the keyboard, you must first call $FD35 and 
then clear bit 7. Therefore, the following patches are offered: 


Subroutine to Print an ASCII Character to Apple II Screen 


APLTVT ORA #$80 Set bit 7 in the ASCII code. 
JSR $FBFD Call the ROM screen printer. 
RTS Return to caller, now that ASCII 


character originally in accumulator has 
been printed to screen in normal mode. 


Subroutine to Get an ASCII Character from Apple Il Keyboard 


APLKEY JSR $FDOC Get ASCII character from keyboard 
with bit 7 set. (Note: you may call 
$FD35 instead of calling $FDOC.) 
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ORA #480 Clear bit 7, leaving the accumulator 
holding a conventional ASCII code. 

RTS Return to caller, bearing ASCII 
character code for depressed key, 


Apple II System Data Block 


The I/O vectors ROMTVT and ROMKEY should be initialized to point to 
APLTVT and APLKEY, respectively. This has been done in the Apple II system data 
block. You must enter the Apple II system data block into your system’s memory if 
any of the software in this book is to run on your Apple II. See Appendices C15 and 
E14, 
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Appendix B4: 
The Atari 800 


Screen 


The Atari 800 microcomputer has the most flexible — and, perhaps the most 
confusing — video-display hardware of any system discussed in this book. Unlike 
the other systems, almost any portion of the Atari computer’s memory may be 
mapped to the screen. Furthermore, there are many different screen-display modes. 
When the Atari computer is powered-up, the screen is in text mode zero. That's 
comparable to the Apple II's low-resolution graphics and text display, which is com- 
parable to the only video-display mode available on the Ohio Scientific or PET com- 
puters, 

The Atari computer makes other screen modes available to the programmer, 
but the software in this book assumes a low-resolution text display, so you'd better 
leave your Atari in screen mode zero if you expect to see any of the displays driven 
by the software in this book. In other words, if you change the screen mode, the 
Visible Monitor may well become invisible. 

I mentioned that the screen buffer may be almost anywhere in memory. If that’s 
true (and it is), how can you determine the HOME address upon which all the 
displays in this book are based? It’s easy. A pointer at $58,$59 (88,89 decimal) points 
to the lowest address in screen memory: the address we refer to as HOME. Before 
running any of the software in this book, you must set HOME properly for your 
system. Simply set HOME equal to the value of that pointer. HIPAGE, the value of 
the highest page in screen memory, is equal to (the high byte of HOME) plus three. 

Once we've set HOME and HIPAGE properly, we’re home free. The other 
screen parameters are fixed: 


ROWINC _ .BYTE 40 
TVCOLS  .BYTE 39 
TVROWS _ .BYTE 23 
SPACE -BYTE $20 
ARROW _ .BYTE $7B 
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Note that the top of screen memory is always at the top of programmable 
memory, so if you add more programmable memory to your Atari 800, you'll move 
the screen memory up higher in the address space. 


Proper Display of ASCII Characters 
Like the PET, and to a lesser extent the APPLE II, the Atari screen requires that 
we perform a conversion before we can properly display an ASCII character on the 


screen. To determine the nature of this conversion, let us first look at the ATARI 
character set in Table B4.1., 


Table B4.1: The Atari character set ATASCI. 


—0 —1 —2 —3 —4 —5 —6 —7 —8 -9—-A-—-B-—-C—D-—E —F 


O-— space! " # $$ % & ° ( ) * + , = / 
1- 0 131 2 3 4 5 6 7 8 9 : 3}; < = > 7 
2- @ ABCODEF GHIJjJKLMWN O 
3- P ORS TUVWX YY ZT \ ] - 
4--------------——---------~----syecial graphics characters---------------—----------—- 
Dineen newnn nen nn nena nnn nn ---special graphics characters----------------------------- 
6— a bc de féghiéojkitiliomoonio 
7J- p qrstuvw xXx y Zz graphics-----—- 


A quick examination shows that ASCII characters $20 thru $5F are ATASCI 
(Atari’s character set) characters $00 thru $3F. Thus, if an ASCII character is in the 
range of $20 thru $5F, we can convert it to the appropriate ATASCI character sim- 
ply by subtracting $20. 

Further inspection reveals that ASCII characters $61 thru $7A correspond to 
ATASCI characters $61 through $7A. Thus, if an ASCII character is in the range of 
$61 thru $7A, it needs no conversion to ATASC]; it already is the corresponding 
ATASCI character, 

Finally, if an ASCII character is not in the range $20 thru $5F or $61 thru $7A, 
it’s not a printable character and has no agreed-upon graphic representation, For 
those cases we'll just leave them alone. 

Figure B4,1 flow-charts this algorithm. 
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CLEAR BIT 7 
SO CHARACTER 
1S LEGAL 


S20 RETURN 


RETURN 


De —————-] PRINTABLE 
, CHARACTER 


Fora | 
| 


' 
| 
| 
| 
| 
L 


RETURN 


Figure B4.1: Flowchart of routine to convert an ASCII character for display on Atari screen. 


Using the flowchart in figure B4.1 as a guide, we can write source code for FIX- 
CHR, which takes an ASCII character as input and returns an Atari display code so 


that the character may be properly displayed on the video screen. 


FIXCHR AND #$7F 


FIXCHR 
Clear bit 7 so character is a legitimate 
ASCII character. 
SEC Prepare to compare. 
CMP #$20 Character less than $207 
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BCC BADCHR 


CMP #$60 
BCC SUB$20 
CMP #$7B 
BCC EXIT 


BADCHR LDA BLANK 


EXIT RTS 
SUB $20 SBC #$20 
RTS 


Keyboard Input 


If so, it’s not a printable ASCII 
character, so return a blank. 
Character less than $60? 

If so, subtract $20 and return. 
Character less than $7B? 

If so, return with the character, 

If not less than $7B, 

the character is not a printable ASCII 
character, so return a blank. 


Subtract $20 and 
return. 


If no key has been pressed, then address $02FC (764 decimal) contains $FF. But 
whenever you depress a key on the Atari keyboard — even if a program is not scan- 
ning the keys — an electronic circuit will sense that a key has closed and will store 
the hardware code for that key in address $02FC. However, the code in $02FC will 
be a hardware code, not obviously related to ASCII or ATASCI. 


Table B4.2: Atari Hardware Key-Codes. 


Hex Decimal Key 


$00 0 L 
1 1 J 
2 2 ; 
3 3 
4 4 
3 5 K 
6 6 + 
7 7 * 
8 8 0 
9 9 
A 10 Pp 

B 11 U 

C 12 RETURN 
D 13 I 

E 14 _— 

F 15 = 


Hex Decimal Key 


Na 
Oo 


mmUdONWroamavuaunrkhwner 


33. SPACE 
34 , 

35 N 
36 

37 M 
38 / 

39 ATARI 
40 R 
41 

42 E 
43 Y 
44 TAB 
45 T 
46 w 
47 Q 
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$10 16 V $30 48 9 
1 17 1 49 
2 18 Cc 2 50 g 
3 19 3 S51 7 
4 20 4 52 BACKS 
5 21 B 5 53 8 
6 22 Xx 6 54 < 
7 23 zZ 7 55 > 
8 24 4 8 56 F 
9 29 9 57 H 
A 26 3 A 98 D 
B 27 6 B 59 
C 28 ESC Cc 60 LOWER 
D 29 5 D 61 G 
E 30 2 E 62 S 
F 31 1 F 63 A 


The Hex and Decimal Columns give the low 6 bits of the hardware key-code stored 
in address $02FC (764 decimal) when the given keys are pressed. Either SHIFT key 
sets bit 6. CTRL key sets bit 7. 


In order to convert that hardware code to ASCII, we need to understand its 
nature. The six low-order bits of the hardware key-code uniquely identify the key. 
(See Table B4.2.) Bits 6 and 7 identify its shift state. Bit 6 is set if the key is 
typewriter-shifted; bit 7 is set if the key is control-shifted. The key is typewriter- 
shifted if either SHIFT key is down; the CAPS/LOWR key has no effect on the 
typewriter-shift state as reflected in the hardware key-code. The keyboard is 
control-shifted if the CTRL key is down. 

If you don’t care about the keyboard's shift state, but merely want to determine 
which physical key has been pressed, then you can clear the two high-order bits in 
the hardware key-code and you'll be left with a number from 0 to 63 decimal (00 to 
$3F) uniquely identifying the key most recently depressed. If you care about the 
keyboard's typewriter-shift state but are indifferent to its control-shift state, then 
you can clear bit 7 in the hardware key-code and you'll be left with a number from 0 
to 127 decimal (00 to $7F), which means the keyboard can generate twice as many 
characters as it has physical keys. To enable control-shifting, simply preserve the 
hardware key-code, and you double once again the number of characters that the 
keyboard (and hence the user) may generate. 

Since the simple text editor presented in Chapter 11 assigns certain functions to 
control-shifted keys, and since you never know when you might need some addi- 
tional character codes from your keyboard, Appendix C16 presents a key-handling 
subroutine for the Atari. This subroutine is capable of generating different 
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characters in each of the four different shift-states (unshifted, typewriter-shifted, 
control-shifted, typewriter- and control-shifted). 

It’s a simple matter to use the eight-bit hardware keycode as an index into a 
keyboard definition table. For any given hardware key-code, we may assign any 
character we like. The keyboard definition table presented in Appendix C16 assigns 
standard ASCII characters to all letter, number, and punctuation. keys, in both the 
unshifted and typewriter-shifted states. Other keys are assigned values consistent 
with their expected use by the software in this book (eg: Control-P generates a $10, 
thus making it a PRINT key in the eyes of the simple text editor). All keys and shift 
states that have no special meaning to this software have been assigned character 
codes of zero; feel free to change these character codes to any values you desire. 

Assuming that we have in memory a keyboard definition table called ATRKYS, 
we can get an ASCII character from the Atari keyboard with the following 
subroutine, ATRKEY: 


ATRKEY LDA $02FC Has a key been depressed? 

CMP #$FF $FF means no key. 

BEQ ATRKEY If not, look again. A key has gone down 
and the accumulator holds its hardware 
key-code, 

TAY Prepare to use that code as an index. 

LDA ATRKYS,Y Look up character for that key and shift 
state. 

RTS Return with ASCH character 
corresponding to that key and shift 
state. 


Print a Character to the Screen 


The Atari 400 and 800 computers each provide a powerful I/O (input/output) 
routine which allows the programmer to get characters from virtually any source, 
and to send characters to virtually any device — the screen, the printer, the cassette 
recorder, and the disk. But, as in the case of Atari’s varied screen modes, power 
breeds complexity. I have found it easier to substitute my own simple routine to 
print a character on the TV screen, bypassing the Atari I/O routines entirely. 

Incidentally, this routine will work with any 6502-based computer that has a 
low-resolution memory-mapped display. If you need a simple TVT simulator for 
your home-brew 6502-based system with a video display, TVTSIM might meet your 
needs. In any event, it prints characters to the screen, and avoids the necessity of 
plumbing the depths of the many modes and data structures associated with Atari's 
central I/O routine. 
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With your system data block initialized as shown in Appendices C16 and E15 
(which includes the TVT simulator as the subroutine to print characters to the 
screen), you are almost ready to run the software in this book on your own system. 


Setting the Top Of Memory 


Address $2E6 (742 decimal) holds the number of pages of RAM available to the 
BASIC interpreter. Store a $0D (13 decimal) in that location and BASIC will use 
memory up to $0DFF, but will not use $0E00 and up. 

NOTE: On the Atari, the software in this book uses memory from $0E80 to 
$1FFF, which is the address space required by the ATARI DOS (Disk Operating 
System) and the ATARI RS-232 serial interface, so you may not use DOS or RS-232 
if you expect to use the software in this book. However, there should be no conflict 
between software in this book and the cassette-based Atari 800. 

Thus, we may set the top of memory with the following BASIC command: 


POKE 742,13 


When you have used the OBJECT CODE LOADER to READ and POKE object 
code from all the appropriate E appendices into your Atari computer, run the 
following BASIC program. It will initialize screen parameters and the top of 
memory, and then pass control to the Visible Monitor. 


100 REM Visible Monitor Start-Up Program for the Atari. 
110 REM 

120 REM First, set the screen parameters. 

130 REM 

140 REM A pointer at 88,89 points to lowest screen address. 
150 LO=PEEK(88): REM Set LO to the low byte of HOME. 

160 HI=PEEK(89): REM Set HI to the high byte of HOME. 


165 IF HI < 32 THEN PRINT “ON AN 8 K ATARI YOU MAY NOT USE EDITOR 
OR DISASSEMBLER” 

170 POKE 4096,LO: REM Set Low byte of HOME. 

180 POKE 4097, HI: REM Set High byte of HOME. 

190 POKE 4101,HI+3: | REM Set HIPAGE = Highest page in screen memory. 

200 REM 


210 REM Now set the top of memory available to BASIC. 
220 POKE 742,13: Tell BASIC to use only memory up to $0DFF. 
230 REM 

240 REM Now call the Visible Monitor. 

250 X=USR(4615): REM Call the Visible Monitor as a subroutine. 
260 END 
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Appendix Cl: 


Screen Utilities 


APPENDIX C1: ASSEMBLER LISTING OF 
SCREEN UTILITIES 


we 


AN fs) fi) be 


Ios 29 


SEE CHAPTER S OF BEYOND. GAMES: SYSTEMS 
SOFTHARE FOR YOUR 65982 PERSONAL COPIPUTER: 


‘on we we D8 wp wh we wt 


BY KEN SKIER 


EEBEBREKLE DS EEEKSEHERL ERE ELAELBEBERE SHEDS S 


ZERO PAGE BYTES 


SHELF HKEBKDAAELRLEKS EH ELLSE ELLE ADHSBLBHBSABS 


N 
SS) 
) 
oe we we wae Wt we we we we Oe le OP we Oe Ok le Ow lt ek 8 


318 @Gog= TV. PTR=2 THIS POINTER HOLDS THE 
ADDRESS OF THE CURRENT 
SCREEN LOCATION. 


a! WJ Oo) W@W 


Ya) W tu 


KESKEEKHEEEERESRASEDERHSSSELEAEREKLHSE BEERS SSE FH 


SCREEN PARAMETERS 


BRB SEEBEBAEEBRKLAEKDHRKEFESEHHKHABSEHSEFEBEEEEGRFEEES 


ah 
SJ 
we we 84 wa we ws wh we we wh ee SO et we ee we we ws 


SH@ 14Aha PARAMS=% 10aa THE FOLLOWING ADDRESSES 

519 MUST BE INITIALIZED TO HOLD 
528 DATA DESCRIBING THE SCREEN 
538 ON YOUR SYSTEM. 


573 
580 1eau= HOME=PARAMNS HOME IS A POINTER TO CHARACTER 
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$3 
620 
616 
626 
634 
540 
6S 
669 
674 
Bog 
639 
vag 
T1G 
veg 
7393 
740 
T23 
T6G 
77h 
759 
734 
Sua 
B10 
820 
B30 
6468 
690 
BSED 
5773 
638 
6308 
349 
914 
924A 
934 
349 
953 
SEG 
373 
930 
358 
1633 
1014 
16295 
1958 
1g4a4 
1256 
1GEa 
1476 
1636 
1436 
1189 
1114 
1129 
1138 
1144 
1156 
11&G 
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1392= 


1893= 


1904= 


1@GS= 


iBUT= 


1160 


POSITION IN UPPER LEFT CORNER. 


ROWINC=PARAMS+2 
ROWING IS A BYTE GIVING 
ADGRESS DIFFERENCE FROM ONE 
ROW TO THE NEXT. 


TYCOLS=FARAMS+3 
TYVCOLS IS A BYTE GIVING 
NUMBER OF COLUMNS ON SCREEN. 
CCOUNTING FROM ZERO. 3) 


TVROWS=PARAMNS+4 
TYROWS IS A BYTE GIVING 
NUMBER OF ROWS ON SCREEN, 
CCOUNTING FROM ZERO. ) 


HIPRGE=PARANS+S 
HIPAGE IS THE HIGH BYTE OF 
THE HIGHEST ADDRESS ON SCREEN. 


BLANK=FPARAMS+E YOUR SYSTEM’ S CHARACTER 
CODE FOR A BLANK. 


ARROW=PARAMS+7 YOUR SYSTEM’ S CHARACTER 
FOR AN UP-ARROM. 


FIXCHR=PARAMS+$11 
FIXCHR IS A SUBROUTINE THAT 
RETURNS YOUR SYSTE?M S 
BISPLAY CODE FOR ASCII. 
CODE. 


*=$1100 


FHKAKBEKBKEREEBBEEBABREBEEABERDAESEEABEBHADSALBEBHS 


CLEAR SCREEN 


BEABESSEREKKERHEBRE BBR KKEGEEDBEESEEEADBEDE TE RBS ED 


117@ 
lice 
L124 
1228 
{219 
Lleza 
12s 
1244 
1256 
1250 
1273 
\2eE3 
1294 
130993 
1319 
A) 
33% 
1343 
1354 
{3&0 
1278 
13565 
1396 
1496 
1419 
1424 
14359 
144 
1454 
1458 
1473 
1454 
14399 
15813 
1518 
{O20 
1S29 
1944 


1ESa 
lea 
176 
1714 
172G 
17sa 
17498 


1112 


L11eé 


1L1¢ 


1115 


1L1E 


TLIE 


1120 


a 85 ws we we 


CLEAR SCREEN, PRESERVING THE’ ZERO PAGE. 


bd 
2BC4ii CLR.TY JSR TYPUSH 


26B311 


BY 


s we wa 48 we te BO oe ws we ws OP ge we as tH ws es 48 OR SB Be we BP 88 le 


JSR TVHOME 
LDX TYCOLS 
{DY TYROWS 
JSR CLR.XY 
JSR TY.POP 


RTS 


SAVE ZERO PAGE BYTES THAT 
WILL BE CHANGED. . 


‘SET SCREEN LOCATION TO UPPER 


LEFT CORNER OF THE SCREEN. 
LOAD X,Y REGISTERS WITH 

%,¥Y DIMENSIONS OF SCREEN. 
CLEAR X COLUMNS, Y ROHS 

FROM CURRENT SCREEN LOCATION. 
RESTORE ZERO PAGE BYTES THRT 
WERE CHANGED. 

RETURN TO CALLER, WITH ZERO 
PAGE PRESERVED. 


BELEK EREREDSEEEEEHBRAFSHEEBESEAREEREBEDAREBEDSRESESS 


CLEAR PORTION OF SCREEN 


SHEREBPDHREHALDEDESBERDEERSRERESHEES KSEE EEDA 


BSEZALL CLR.XY STA COLS 


33 
AR 


TYA 
TAA 


c 
ALBE1LA CLRROW LOA BLANK 
3 


BE 


CLRPOS STA C(TV.PTR),Y 


a 
$ 


LDY COLS 


DEY 


CLEAR X COLUMNS, Y ROWS 
FROM CURRENT SCREEN LOCATION. 
MOVES TU.PTR BOWN BY Y ROWS. 


SET THE NUMBER OF COLUMNS 
TO BE CLEARED. 


NOW X HOLDS NUMBER OF ROWS 
TO BE CLEARED. 


WE’ LL CLEAR THEM BY 
WRITING BLANKS TO THE 
SCREEN. 

LOAD Y WITH NUMBER OF 
COLUMNS TO BE CLEARED. 
CLEAR A POSITION BY 
WRITING A BLANK INTO IT. 


ALJUST INDEX FOR NEXT 
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1758 
1760 
L77a 
1780 
1738 
169 
181g 
1828 
1622 
184a 
1859 
iseag 
1870 
1sea 
1890 
1989 
191g 
1926 
193 
1949 
1959 
1968 
19793 
198g 
199A 
2007 
2H19 
2020 
2n30 
28498 
2858 
2a8a 
2078 
2029 
2BSa 
2189 
2119 
2128 
21390 
2145 
2159 
2169 
2170 
2180 
2199 
2209 
2219 
2220 
2230 
2244 
2253 
2268 
2278 
2283 
2258 
2303 
2310 
2320 


1lizi 


li2s 


1126 
Liz? 
1129 


112A 


1125 
LicD 


Lier 
1139 


1GFB 


eBrTsil 


IGEF 


AZaG 
RS82 


19 
SSHA 
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O 


T 


FOSITION ON THE ROW. 


BPL. CLRPOS IF NOT DONE WITH ROW, 
CLEAR NEXT POSITION... 


2e wa 


JSR TUBDONN IF DONE WITH ROW, MOVE 
CURRENT SCREEN LOCATION 
DOWN BY ONE ROW. 


DEX DONE LAST ROM YET? 
BPL CLRRObI If NOT, CLEAR NEXT ROM... 
RTS IF 50, RETURN TO CALLER. 

3 

OLS -BYTE @ DATA CELL: HOLDS NUMBER OF 

3 COLUMNS TO BE CLEARED. 

$ 

3 

3 

; 

3 

3 

3 

3 

$ 

3 

$  FEBLLESERSSEERHEEHEEFHRE EBEHSEEKERBFSSEDEASATSE 

5 

3 TYVHOME 

3 

5 SEHEAEKEREASHABKESSSEABALFSESEEEHKFASESESHASE 

3 

3 

; 

VHOME LDA #2 SET TY.PTR TO UPPER LEFT 
LOY #0 CORNER OF SCREEN, BY 

ZEROING *% AND Y AND THEN 

CLC GOING TO 4~,¥Y COORDINATES: 
BCC TVUTOAY 


EREABEEEEBESEABELS ALLRED E LELEDEEREBESERESESE 


CENTER 


HRREKASSEBEEBABEAEEHEFUBRREREESEEFREEFSRSSEHKKHS 


SET TY.PTR TO SCREEN’ S 
CENTER: 


we wt we me 8 wn we we ed we ws 8 fe wr OF se Oe owe 


2358 


# 
2342 1132 ANB4iG CENTER LOA TVROWS 


2254 1135 
2366 11355 
2378 
23586 
2388 1137 
2408 113A 
241@ 1135 
2426 
24398 
2446 
2453 
24608 
2478 
2489 
2450 
2504 
2510 
2524 
2536 
2546 
2559 
2556 
2573 
2584 
2589 
2686 
2613 
2620 
2639 
2640 
2650 
2558 
2678 
2683 
26303 
2769 
2716 113C 
272g 
2728 
2748 
2759 1130 
2763 1149 
2773 
2763 1142 
2790 
2808 
2019 1145 
2820 1146 
2835 1149 
2340 
2556 
2859 1148 
2573 
Zeso 
2898 
2320 1L1I4E 


4A LSR 
AS FAY 
3 
3 
ADGS14 LDA 
4A (SR 
AR TAX 
3 
3 
3 
3 
; 
3 
3 
5 
$ 
3 
3 
3 
3 
3 
5 
3 
. 
5 
; 
3 
3 
; 
$ 
$ 
3 
38 TVTGRY SEC 
3 
3 
3 
EC#318 CPX 
Sags BCC 
3 
ALGS1B LDX 
3 
33 KOK SEC 
CC9410 CPY 
3093 BCC 
3 
3 
ACG41iG LOY 
, 
$ 
RADGQ1B Y.OK LDA 


A 


TYVCOLS 
A 


TUTOAY 


TYUCOLS 
4%. OK 


TY¥COLS 


TYROWS 


Y.OK 


TYUROWS 


HOME 


LOAD A WITH TOTAL ROWS. 
DIVIDE IT BY TWO. 

Y NOW HOLDS THE NUMBER OF 
THE SCREEN’ S CENTRAL ROH. 


LOAD A WITH TOTAL COLUMNS. 
DIVIDE IT BY TWO. 

*X NOW HOLDS THE NUMBER OF 
THE SCREEN’ S CENTRAL COLUMN. 


X AND Y REGISTERS NOW HOLD 
X,Y COORDINATES OF CENTER 
OF SCREEN. 


SO NOW LET’S SET THE SCREEN 
LOCATION TO THOSE X,Y 
COORDINATES: 


FEASSEKKSKESTKSESKLEAATFEKSESSBRHESSFHEAERSESHEGHES 


REASEALAHEHFESHASSERFFESSELSEFKSHASHSEAAHSESBDSEES 


SET CURRENT SCREEN LOCATION 
TO COORDINATES GIVEN BY 
THE X AND Y REGISTERS. 


IS X OUT OF RANGE? 

IF NOT, LEAVE IT ALONE. 

IF X IS OUT OF RANGE. GIVE 
IT ITS HIGHEST LEGAL VALUE. 
NOW X IS LEGAL. 


IS ¥ OUT OF RANGE? 
IF NOT, LEAVE IT ALONE. 
IF Y IS QUT OF RANGE, GIVE 


Y ITS HIGHEST LEGAL VALUE. 
NOW Y IS LEGAL. 


SET TV.PTR = LOWEST SCREEN 
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23514 L151 
2320 1153 
29313 1156 


2559 1158S 
2955 1153 


29908 115A 
3449 11528 
3819 115C 
3426 115& 
36350 1i6G 
2846 1162 


3676 116s 
3784 LILES 
3930 1167 
3160 1IBB 
3L10 i1E5 
3123 1160 
3136 LIBF 
3148 1170 


Ssl7ré@ livre 
SIl€Q i174 
3139 1175 


he 


WwW Ww @ G) 
MN NM tf MIN 


sagg oe 


www Ww G) W Go fo a 
w woot + 
qaeoaoadda G) 


TOON AM ses Whe oO 


bh www ww w& ow td 


gaayogoay 


1176 
1179 
S420 LATA 


a 
> 
— 
eS) 


3449 117C 


347@ LACE 


BSha STA 
ADY110 LBA 
BSSal STA 


2B PHP 
DS CLB 


BA TxA 
18 CLC 
B580 ADC 
3683 BCC 
EGS1 INC 
18 CLC 
3 
Cea COLSET CPY 
FORE BEQ 
18 ADDROW CLC 
529219 ADC 
S902 ECC 
FeGL INC 
ad DEY 
DOFS BNE 


we 


<6 


oomn TV.SET STA 
25 FLP 
69 RTS 


we Sf woe 


e¢ ec we 28 28 @2P wh we 43 we wt 


ADGZ16 TVDCHN LBA 
18 CLC 
SAaBS BCC 


2OUSB1IL VUCHAR JSR 


3 
ASGL TUSKIP LDA 
3 
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TY.PTR ADBRESS. 
HOME+! 
TU.PTR+L 


SAVE CALLER’ S DECIMAL FLAG. 
CLEAR DECIMAL FOR BINARY 
ADDITION. 


ABD X TO TY.PTR 


TYU.PTR 
COLSET 
TULPTRIL 


#0 ADD Y*ROWINC TO TV.PTR: 
TYV.SET 


ROWING 
+4 
TU.PTRHL 


ADDROW 
TYU.PTR 


RESTORE CALLER’ S DECIMAL FLAG 
RETURN TO CALLER 


EHEEREEDERERHRHEALE LEE EEHEKAEELEBRESRESERBAEREEBESRSD 


TUDCNM, TYSKIP, and TYPLUS 


FHREESKEERABAKEEHEEEBESEKEDDASRASHALEEFSEBRESHESEHKH 


ROWING MOVE TU.PTR DOWN BY ONE ROW. 
TYPLUS 
TV. PUT PUT CHARACTER ON SCREEN 
AND THEN 
1 SKIP GNE SCREEN LOCATION 


BY INCREMENTING TV.FTR 


3439 
3509 
3519 1191 68 TVPLUS PHP TYPLUS ADBS ACCUMULATOR 
3524 1182 D8 CLD TO. TU.PTR, KEEPING TV.PTR 
3529 i1le3 168 CLC WITHIN SCREEN MEMORY. 

3540 1194 6540 ADC TY.PTR 

3550 1185 S652 BCC #+4 

3560 1188 EEOL INC TU.PTR+1 

3578 1iSA ©5e0 STA TV.PTR 

2584 Lisc 33 SEC IS CURRENT SCREEN LOCATION 
3590 1160 ADaS19 LOA HIPASE OUTSIDE OF SCREEN MEMORY? 
3699 1199 CS6L CMP TU.PTRt1 

3519 1192 Bees BCS TV.OK 

3624 
36309 1194 ADGB11B LDA HOME+1 IF SO, WRAP AROUND FROM 
3546 1197 85dal STA TV.PTRtL BOTTOM TO TOP OF SCREEN. 
3ESG ; 

SEEQ@ 11S9 28 TU.OK PLP RESTORE ORIGINAL DECIMAL 
SETB LISA SO RTS FLAG AND RETURN TO CALLER. 
3636 
36350 
37390 
371i8 
3725 
37=0 
3740 
3754 
37EZ 
3778 
37e8 
2738 
3E90 
2218 
3820 
3533 
38498 
3850 
3259 
3573 
SeEG 
3636 119SB 261118 TV.PUT JSR FIXCHR CONVERT ASCII CHARACTER 
39508 H TO YCUR SYSTEM S BISPLAY 
3516 COLE. 

33528 
3534 1L1SE ABaa LDY #4 PUT CHARACTER AT CURRENT 
3949 Lipo 91009 STA (TV.PTR),¥Y SCREEN LOCATION. 

3354 11AZ 6A RTS TREN RETURN. 

3558 
3376 
3530 
3336 
4h 
4919 
4025 
4638 
46419 
4250 
4369 


< 2s we 


ERLSLBKEZESBHHKSESD BESHEKEASEAPASFARHASSEADBISDRES 


TV. PUT 


HHRS EFELLSAKAFETSERS ERBEBSSHEFSEHDSBFESABEALSESS 


ae we we 48 @6¢ we ws ws @8 op St WE we CF we st we we wh ws UO 


GREED RBSEEHRBEBEBE DDE REBHHEDBSESESERGLSEDHEBREEREYS 
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407G 
4u8g 
4asB 
4190 
41108 
4128 
4138 
4149 
4158 
4168 
417 
4189 
41399 
4700 
4219 
4228 
423¢ 
4246 
4254 
4260 
4276 
4288 
4798 
4388 
4310 
4320 
43230 
434g 
4359 
4360 
43708 
4398a 
4398 
4420 
4414 
442G 
4430 
4449 
4458 
44508 
4470 
4480 
4499 
4582 
4518 


4520 


4530 
4546 
4550 
4550 
4576 
4582 
4590 
458G 
4618 
4626 
4546 
4646 


LiAS 
LLA4 
L1AS 
LLAG 
LLA? 


LiAB 


LLAEB 


LLIAE 
LIAF 


11B2 


L155 


11B5 
L157 
11B8 
LLBA 


L1iBC 


43 
4A 
4A 
4A 
4A 


2eOR611 


2GrCi1i 


68 
290611 


crcl 


60 


292F 
CSBA 


3092 
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ee ot we we lee 688 hye ws 


DISPLAY A BYTE IN HEX FORMAT 


VUBYTE PHA 


@t as a3 ge ws 


W we we ea Bt ws WA 88 BE BS wb wt Bh wn BE Oe SEB wh we ee 


LER 
LSR 


DD DD 


J&R ASCIT 


JSR VUCHAR 


JSR ASCII 


JSR VUCHAR 


| 
wn 


BHEEREEEADBEREGDEABEE GS BEBE EH EEE EH ED HE HEBHEDB HHH 


SAVE BYTE TO BE BISPLAYED. 
fQVE 44 MOST SIGNIFICANT 
BITS INTO POSITIONS 
FORMERLY OCCUPIED BY 4 
LEAST SIGNIFICANT BITS. 


DETERMINE ASLII CHAR FOR 
HEX DIGIT IN AS 4 LSB. 


DISPLAY THAT ASCII CHAR CN 
SCREN AND ADVANCE TO NEXT 
SCREEN LOCATION. 


RESTORE ORIGINAL BYTE TO A. 
DETERMINE ASCII CHAR FOR 
A'S 4 LSB. 


STORE THIS ASCII CHAR JUST 
TO THE RIGHT OF THE OTHER 

SCII CHAR, AND ADVANCE TO 
NEAT SCREEN POSITION, 


RETURN TO CALLER, 


LRLELEYRBHBEEEKSEEREEDEEDKEGLHEEHEKBEEBEBLEADESDHA 


HEX-TO-ASCIT 


PHP 
CLD 

AND $$0F 
cmp #sGA 


BMI DECIML 


EEBREELE EBA KESEE EEE EERE SE DEEERSESEEEEBESD EEE 


THIS ROUTINE RETURNS ASCT 
FOR 4 LSB IN ACCUMULATOR, 
CLEAR HIGH 4 BITS IN A, 
TS RECUHULATOR GROATER 
THAN S‘? 

TF NOT, IT UST BE G-3, 


4550 
4655 
4670 


4840 
4858 
4569 
4872 
4889 
4830 
4994 
4918 
4928 
4339 
4945 
4358 
4965 
4978 
4528 
4338 
Sasa 
Sala 
Soz5 
S220 
5842 
Sasa 
SBE 
5a7o 
5230 
5598 
Sian 
Siig 
5125 
5138 
5149 
5150 
S169 
5170 
Sisa 
5198 
5200 
S218 
S220 


LIFE 


11C2 


1102 


11c3 


1104 


11CS A 


1iCe 
Lic? 


1ice 
LICFi 
LLCs 
LICU 


LICE 
L1CF 
11iDa 
11D1 


11D2 


6S36 


6334 


2a 


BQ 


$6 


bm 
ow D 


ASSL 
43 
AS8v 
43 


SS 
43 
oA 
48 


64 


D 


| 


wea SH we fT] we we 


Coe Sle ee ee we we we SE we ee wn we WP se et ee OH ws we ed we Oh ue wl wk ue we 


ADC #6 


PLP 


RTS 


CIML ADC ##32 


IF SO, I¥ MUST BE A-F. 

ADD 36 HEX TO CONVERT IT. 
JO. CORRESPONDING ASCII CHAR. 
IF A IS 6-9, ADD 36 HEA 

TO CONVERT IT TO 
CORRESPONDING ASCII CHAR. 


RESTORE ORIGINAL DECIMAL 
FLAG, ANU 
RETURN TO CALLER 


FEL ELRHSHSEBSEKESESH ERE ERAEREZHEREKEEBERES 


TVPUSH 


ERE EE HEE EHEFEKEEEERAS ESE SAREE RH THEES ES 


TAX 
FLA 
TAY 


LDA 
FHA 
LDA 
PHA 


TTA 
PHA 
TRA 
PHA 


RTS 


TY.PTR+L 


TULPTER 


SAVE CURRENT SCREEN LOCATION 
ON STACK, FOR CALLER. 


PULL RETURN ADBRESS FROM 
STACK AND SAVE IT IN *® AND 
Y REGISTERS. 


GET TYV.PTR AND 


PUSH IT ONTO THE STACK. 


PLACE RETURN ADDRESS 


BACK ON STACK. 


THEN RETURN TO CALLER. 
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Q 


Qaaa wy 


Su MO Td mM aA 


Wh NNN NN 


5469 11iD2 
$430 Lin 
5544 1105 
$519 1105 


5546 Lit? 
55°58 1153 
S569 LiBA 
S570 11DB 


S669 1100 
S618 LiDe 
S620 L1LOF 
56534 11&G 


SE66G LIEL 
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as 
42 
EA 


45 


60 


T 


CALLER WILL FIND TY.PTR ON 
STACK, LOW BYTE ON TOP. 


BEBEKEDBSEHKAKESEBKHDEBEBEREEEKEEEERSEDLSBREREBDES 


TV. POP 


BRERLRABHRESE BBE KEEHAKKSEHREBAESESSEKRKHLSESASHAAS 


-POP PLA 
TAA 
PLA 
TAY 


PLA 
STA 
PLA 
STR 


TYA 
PHA 
TxA 
PHA 


RTS 


TULPTR 


TULPTRIL 


RESTORE SCREEN LOCATION 
PREVIOUSLY SAVED ON STACK. 


FULL RETURN ADDRESS FROM 
STACK, SAVING IF IN &%..- 


-»-AND IN ¥ 
RESTORE... 
oe - IULPTR 


es of ROM 
22 «STACK. 


FLACE RETURN ADDRESS 
BRCK ... 


»--ON STACK. 


RETURN TO CALLER. 


Appendix C2: 


Visible Monitor (Top Level and 
Display Subroutines) 
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37a 
3E6 2920= 
330 
409 8292= 
410 
425 
439 12229= 
448 
458 
464 
478 ivav= 
453 
43509 
56) 
512 
$2 10Q9= 
S35 
546 
554 
553 
57a 
586 @426= 


was 86¢ we 08 we we WE SR WER wP 


26 we eh we we wh we ee eh Oe le we we me us we wt we we lt 


ae m6 


APPENDIX C2: ASSEMBLER LISTING OF 
THE VISIBLE PIONITOR 


TOP LEVEL AND DISPLAY SUBROUTINES 


SEE CHAFTER & OF BEYOND GAMES: SYSTEMS 


SOFTWARE FOR YOUR G5@2 PERSONAL COMPUTER 


BY KEN SKIER 


RBEEKEERELEREREREEERLEREEBEEDSESSEBEEGISAERSERAS 


EQUATES 


KELEKHHKEESKSHESASHHHEASSFTERHSESFSSERSESKABS 


TV.PTR = @ 


GETPTR = 2 


PARAMS =-$1%99020 ADDRESS OF SYSTEM DATA 
BLOCK. 


ARROW = PARAMS+7 
THIS DATA BYTE HOLDS YOUR 
SYSTEM S CHARACTER CODE 
FOR AN UP-ARROW. 


ROMKEY = PARAMS+S 
ROMKEY IS A POINTER TO 
YOUR SYSTEM S SUBROUTINE 
TO GET AN ASCII CHARACTER 
FROM THE KEYBOARD. 


SPACE = $24 
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$393 
608 
619 
620 
6398 
646 
656. 


BB7F= 


Ga0D= 


66a 


67a 
68 
693 
72a 
71G 
720 
730 
740 
750 
76a 
778 
780 
73a 
saa 
610 
820 
630 
84a 
ESB 
86a 
876 
880 
ssa 
908 
g1a 
920 
930 
940 
958 
968 
976 
38a 
93a 
1900 
1212 
102@ 
1930 
1644 
1aSa 
1a6a 
197@ 
198. 
1a9a 
110@ 
1119 
1120 
1138 
114g 
1150 
1168 
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116G= 
1109= 
1113= 
112B= 
~113C= 
1176= 
117C= 
117F= 
-1L1i8l= 


LLA3= 


LLBG6= 
1ic4= 
1iDB3= 


1208 


12E3= 


oo we th ws ws we we Ut we We ve we ws ek Ot we we we ot 


RUBOUT = $7F 


CR = $0D 


EHERHKRHEBRBAEDEEKGE EEE ERE DEBKEDKEKSEEAEBGS EAS 


REQUIRED SUBROUTINES 


FRERERSEKRASHHSESHLAEREERELEBESEEEEDHEDEDSEBREEES 


ASCII FOR CARRIAGE RETURN. 


TUSUBS = $1190 
CLR.TV = TUSUBS 
CLR.XY = TUSUBS+513 
TUHOME = TUSUBS+£2B 
TUTOXY = TUSUBS+83C 
TUDOWN = TYSUBS+#75 
VYUCHAR = TVUSUBS+%7C 
TUSKIP = TVSUBS+57F 
TVPLUS = TUSUBS+83L 
VUBYTE = TYSUES+SA3 
ASCII = TUSUBS+SB6 
TVPUSH = TYSUBS+$C4 
TV.POP = TUSUBS+$D3 
* = $1200 


UPDATE = #+$&3 


1170 
1189 
1198 
1224 
1212 
1228 
1239 
1240 
1250 
i260 
1278 
1ze0 
1294 
1399 
1319 
1220 
1338 
1349 
135a 
1360 
137a 
1389 
1396 
1400 
1419 
1420 
1430 
1440 
1456 
1460 
1479 
1469 
1439 
isaa 
1512 
1523 
1s3q 
1542 
issa 
1S6O 
1570 
ISEH 
1596 
1600 
1510 
1629 
1639 
1646 
1658 
1660 
167@ 
1629 
1694 
1728 
1718 
1720 
1720 
1740 


1288 02 


1261 


1262 


1203 


1204 


Ba 


03 


20 


a} 


izi= 


12a5 


1207 
1266 


12989 


L26F 
1212 


Cag 


"3 
BS 


241212 


2Be312 


16 
SOF 6 


om | 26 we wt we we wt 


7“ 
mm 
rc 
oS 


a a 
=< x D 


ee ws [T] ws me me [] we oe 
6) 
"U 


KHHKERKLHEREERERSDEERESELESESEEKSRSESFSDSSESBTSESGAGS 


USER-MODIFIABLE DATA 


-BYTE 8 


~-BYTE @ 


-BYTE G@ 


-BYTE @ 


~BYTE @ 


REGS = REG.A 


SELECT .WORD @ 


; 
; 
3 
5 
; 
$ 
3 
5 
, 
’ 
c 
, 
3 
3 
5 
I 


Vy 


oo eat we 


ae at 


HHALSKEAKSLEDSLERIEFASKSFASHAESESSSESSLESSAASARES 


NUMBER OF CURRENT FIELD. 
CMUST BE. @-6. 3 


IMAGE OF ACCUMULATOR. 
IMAGE OF X-REGISTER. 
IMAGE OF Y-REGISTER. 


IMAGE OF PROCESSOR STATUS 
REGISTER. 


POINTER TO CURRENTLY- 
SELECTED ADDRESS. 


BEKEEESESEESBEREFASHSESASSESHESESASFELERSSSEFSEHKSASSE 


THE VISIBLE MONITOR 


SMON PHP 


CLD 


JSR DSPLAY 


JSR UPDATE 


CLC 
BCC VISMON+1 


SHEERS EKLASERAEBEESSEKELEKREBASSEERESELSSATSSESS 


SAYE CALLER’S STATUS FLAGS. 
CLEAR DECIMAL MODE, SINCE 
ARITHMETIC OPERATIONS IN THIS 
BOOK ARE ALWAYS BINARY. 


PUT MONITOR DISPLAY ON 
SCREEN. 


GET USER REQUEST AND 
HANDLE IT. 


LOOP BACK 10 DISPLAY... 
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1752 

1758 

177G 

1783 

173a 

188g 

1810 

1820 

1836' 

1840 

1850 

186¢ 

187. 

188o. 

1890. 

1988 

191@ 1212 28C411 B 
1926 

1930 

194@ 1215 292512 JSR CLRMON CLEAR A PORTION OF SCREEN. 
1958 .1218. 283412 JSR LINE.1L DISPLAY LABEL LINE. 

1968 121B 2@5C12 JSR LINE.2 DISPLAY DATA LINE. 

1978 1Z1E 2GAFI1Z JSR LINE.3 DISPLAY ARROW LINE. 

198@ - 
1996 1221 2QD311 ISR TU.POP RESTORE ZERO PAGE BYTES 
2300. THAT WERE SAVED ABOVE. 
2010 . 
2928 1224 60 RTS RETURN TO CALLER. 
203g. 
2840 
2@S59' 
2060. 
2075 
2080 
29948 
2190 
Zi10 
2120 
2134 
2140 
2159 
2169 
2170. 
2188 
2198 
2208 
22308 
2220 
2238 1225 AZ@Z CLRMON LDX #2 SET TV.PTR TO COLUMN 2, 
2246 1227 ABGZ LOY #2 ROW 2. 

2256 1229 2@3Cl11 JSR TVTOXY 

22608 

227G 122C AZID LOX €25 LOAD X WITH NUMBER OF 

2284 COLUMNS €25) TO BE CLEARED. 
2290 

2308 1227E— AgaS LOY #3 LOAD Y WITH NUMBER OF 

2310 ROWS (3) TO BE CLEARED. 
2328 


EX EBEEBEEKHAEEEFAERERESHEEEEEREREEEERAEERSEBRS 


MONITOR-DISPLAY 


FEKKKKLHKDRBEBERKBRABBEDEREBEEREKEBEKEEREREEAKGSASS 


CU} wa we ae we we we 


PLAY JSR TVPUSH SAVE ZERO PAGE BYTES THAT 
WILL BE MODIFIED. 


LEBLELLLSEKESSERLSHSHADASA LEDS HAEDEADASEBDES 


CLEAR PORTION OF SCREEN 


BE EKKEBEBALEERERERBRBEBKED EEE EDERERESEHAESRESS BS 


[7 <¢ we we we ws wt us as we we we 
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23 
2340 
2350 
Z23E8 
2379 
Z235ah 
23S 
2448 
2416 
2428 
24393 
2446 
2450 
24658 
2476 
2458 
24350 
2546 
2514 
25248 
2554 
2548 
255H 
2564 
257i 
25384 
2S 
250 
2518 
2629 
26358 
2648 
2656 
2564) 
2oTt 
ohh wh) 
2ESH 
2768 
2ria 
272g 
273% 
27ag 
2758 
27ER 
2° 7A 

a=15) 
2739 
273 
2734 
2rs4 
2730 
2rsa 
2738 
erlag 
27Tou 
2733 
2243 
2518 


1240 
L242 
1248 
123 
124¢ 
124£ 


1259 
l2s1i 


AZO 
AZB2 
Z2U3C1i1 


BaS2i2 
2g7cii1 
EESI1i2 
ACSI12 
CaGA 
HGF@ 


6G 
7454) 


41 
2A 


+ 26 


oO 
o 


5 26 


2B 
oD 
25 
2g 


5H 


L 


we 


we we we we ws we we 


{i we we wt we we wt we ve we St ue He we 


L 


Oj ws ue 


JOR 


RTS 


CLR. AY 


CLEAR X COLUMNS, Y ROWS. 


RETURN TO CALLER. 


REEEHKEKHTL EHH LERELASEELEEEEEBSEAARHEERESEERESD 


DISPLAY LABEL LINE 


HLEERKASEBERADSSFAE KS ERSEADEASSEADESEKSSTSHASSSBE 


NE.1 LOX 


LDY 
JSR 


LDY 
STY 


LOOP LDA 


JSR 
INC 
LDY 
CPY 
BNE 


RTS 


#13 
$2 
TUTOXY 


#0 
LBLCOL 


LABELS, Y 
VUCHAR 
{BLCOL 
LBLCOL 
#10 
LELOOP 


LBLCOL .BYTE @ 


3 
3 
A 


X-COORDINATE OF LABEL "A". 
¥Y-COORDINATE Or LABEL “A”. 
SET TV.PTR TO POINT TO 
SCREEN LOCATION “OF LABEL “A 


PUT LABELS ON SCREEN: 
INITIALIZE LABEL COLUMN 
COUNTER. 


GET A CHARACTER AND 

PUT IT ON THE SCREEN. 
PREPARE FOR NEXT CHARACTER. 
DONE LAST CHARACTER? 


IF NOT, DO NEXT CHARACTER. 
RETURN TO CALLER. 


BATA CELL: HOLDS COLUMN 
OF CHARACTER TO BE COPIED. 


LABELS .BYTE “A K YP’ 
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28228 ; 

2830 ; 

2R4Q ; 

2858 ; 

2560 ; 

2873 ; 

2880 $ 

z2e90 ; 

295A $ BRUSHED HEREBSFSESHERHEERAEBFERARSEREBSTEASDAAKFASS 
2918 ; 

2920 $ DISPLAY BATA LINE 

2938 ; 

2340 5 S¥EKREEREKAKTESKSECKEEEKEKRASSELELASAESHEHARBABS 
295g ; 

288 ; 

2979 : 

2988 ; 

2996 ; 

309@ 125C AZ@Z LINE.2 LDX #2 LOAD X WITH STARTING 

3016 ; COLUMN OF DATA LINE. 

3328 ; 

3338 12SE Agag LOY #3 LOAD Y WITH ROM NUMBER 
3940 OF DATA LINE. 

30548 

3BE9 1268 2G3Cl11 JSR TUTOXY SET TU.PTR TO POINT TO 
3a7gq ; THE START OF THE DATA LINE. 
3a80 5 

3929 1253 ADBG12 LDA SELECT+1L DISPLAY HIGH BYTE OF 

319@ 1266 2@A311 JSR VUBYTE ‘CURRENTLY-SELECTEB ANDRESS. 
3ilg 1269 ADOSIz2 LOA SELECT DISPLAY LON BYTE OF 

3128 126C 2G8A311 JSR VUBYTE CURRENTLY-SELECTED ADDRESS. 
3130 ; 

314Q 128F 207F11 ISR TUSKIP SKIP ONE SFACE AFTER 

3159 ; ADDRESS FIELD. 

3166 ; 

3l7@ 1272 2as4i2 JSR GET.SL GET CURRENTLY-SELECTED 
315G BYTE. 

31389 

3208 1275 48 PHA SAVE IT. 

3218 

3228 1276 Z@AZ11 JSR WUBYTE DISPLAY IT, IN HEX FORMAT, 
32309 IN FIELD 1. 

3249 

3250 12793 207F11 JSR TVSKIP SKIP ONE SPACE AFTER FIELD 
3260 1. 

327¢ 

3268 127C 68 PLA RESTORE CURRENTLY-SELECTED 
32993 BYTE TO ACCUMULATOR. 

33aG 

3316 127D 207C11 JSR VUCHAR DISPLAY IT IN CHARACTER 
3324 ; FORMAT, IN FIELD 2. 

333 H 

3349 1288 2Q7F1i1 JSR TUSKIP SKIP ONE SFACE AFTER FIELD 
3358 

3360 

3372 DISPLAY 6S@Z2 REGISTER 
3383 IMAGES IN FIELUS 3-6: 

3398 
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3498 
3418 
3420 
34360 
3449 
3459 
3459 
3474 
3489 
3490 
3528 
35168 
35268 
353¢ 
3546 
3558 
3560 
3579 
3564 
3594 
36098 
361G 
36248 
3536 
3640 
36S9 
36698 
367 
SE8o 
3636 
37The 
3719 
3729 
3735 
37340 
37TSa 
3768 
2778 
3783S 
37360 
3530 
38160 
38268 
383° 

3e4 
3850 
36EG 
3876 
3288 
38630 
290a 
3916 
3328 
3934 
3940 
3958 
339690 
3370 


1283 


1265 
12868 
1c8B 


125 
126F 
1231 


1293 


1294 
1296 
1297 


1239 
i2zsc 
L23e 
1Z2Al 


12A3 
LZAS 
12A7 
12AS 
12AS 
12AB 
LZAD 
L2AE 


A288 


LDX 


BDGLi2 VUREGS LDA 


2G6AR11 
Z247F1il 


ES 
EUY4 
DSF2 


66 


ASBZ G 
46 
AGES 


ADASI2 
BSB2 
ADZSL2 
S553 


Ada 
B1@2 
AS 
65 
6502 
6603 
35 


64 


2@ we 88 we wl we wea wt ws we we we B26 ws Bh we 


we we ws ws 


[7] «2 we 


JSR 
JSR 


INX 
CPX 
BNE 


RTS 


#3 START WITH ACCUMULATOR 


IMAGE. 
REGS,X LOOK UP THE REGISTER IMAGE. 
VUBYTE DISPLAY IT IN HEA FORMAT. 
TUSKIP SKIP’ ONE’ SPACE AFTER “HEX. 

FIELD. 

GET READY FOR NEXT REGISTER... 
#4 DONE FOUR REGISTERS YET? 
VYUREGS IF NOT,. DO NEXT. ONE... 

IF ALL REGISTERS DISPLAYED, 


RETURN. 


KHEEHEDHKBSRERGFBSESKSSEBAKEAFSSERSEKTSFFAKKSS 


GET SELECTED BYTE 


BREFDBSERELEDRESLEERSSHERETHHRESREGRERSSEESEEESAS 


T.SL LOA 


FHA 
LDX 


LDA 
STA 
LDR 
STA 


LDY 
LOA 
TAY 
FLA 
STA 
STA 
TYA 
RTS 


GETPTR GET BYTE POINTED TO BY 
THE SELECT POINTER 
GETPTR+L (PRESERVING THE ZERO PAGE). 


SELECT 
GETPTR 
SELECT+1 
GETPTRtL 


#2 
CGETPTRI,Y 


GETFTR 
GETPTR+L 


RETURN TO CALLER. 
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3982 
a9gn 
4000 
4019 
492 
4838 
4048 
405 
4050 
487@ 
4086 
403G 
4180 
4116 
4120 
4136 
414g 
4158 
4168 
4178 
4180 
4190 
4286 
4218 
4226 
4238 
424@ 
4258 
4260 
4270 
4289 
4290 
4329 
4319 
432@ 
4332 
4342 
434g 
4348 
4350 
435a 
4360 
4363 
4378 
4320 
4388 
4400 
4410 
4420 
4436 


L2Ar 
12B1 
1283 


I2BE 
12B9 
125A 
1ZBC 
LI2ZBE 
120 
12C3 


12C& 


12C?7 
12CA 
12CC 


12CD 
12CE 
12CF 
1208 
12B1 
1202 
12B3 


AZEZ 
AGG4 
Z2Bscil 


ACBZ1iz2 
38 
COu7 
9465 
AGG 
ecaBi2Z 


L 


3 
3 
3 
, 
3 
’ 
, 
3 
> 
3 
I 


we we 


HEBEEALKLESAEHE KES ESEEALES ESSE DHSS FHELKSLAGESS 


DISPLAY ARROW LINE 


KERBEHEREESSESEBSEEDEREKESHKELAESSSISALASS KLASSE 


NE.3 


BSCDi2 FLD.OK 


AS 


ADST 1a 
31Ga 
50 
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F 


4 «a: oe 


ELDS 


LDA #2 
LOY #4 
JSR TVUTOAY 


LDY FIELD 
SEC 

CPY #7 

BCC FLD.OK 
LOY #2 

STY FIELD 
LDA FIELDS, Y 


TAY 


LDA ARROW 
STA CTV.PTR),Y 
RTS 


~-BYTE 3,65,8 


-BYTE #03,S8E 


~—BYTE $11,914 


LOAD X WITH STARTING COLUMN. 
LOAD Y WITH ROW NUMBER. 

SET TV.PTR TO BEGINNING 

OF ARROW LINE. 


LOOK UP CURRENT FIELD. 


LOOK UP COLUMN NUMBER FOR 
CURRENT FIELD. 


USE THAT COLUMN NUMBER AS 
AN INDEX INTC THE ROM. 


PLACE AN UP-ARROCH IN 
COLUMN OF THE ARROW LINE. 
RETURN TO CALLER. 


THIS DATA RARER SHOWS WHICH 


COLUMN SHOULD GET AN UP- 
ARROW TO INDICATE ANY ONE 


OF FIELDS @-&. CHANGING 
ONE OF THESE VALUES WILL 
CAUSE THE UP-ARROW TO APPEAR 
IN A DIFFERENT COLUMN WHEN 
INDICATING A GIVEN FIELD. 


Appendix C3: 


Visible Monitor (Update Subroutine) 


414 

24 

38 

46 

59 

6G 

79 

88 

93 
1a0 
116 
126 
134 
148 
154 
16g 
17@ 
1&2 
156 
246 
2190 
228 

3 
2468 
258 
269 
279 
236 
2208 
380 
313 
329 
323 
344 
3565 
365 
379 
323 
395 
443 
41G 
420 
435 
440 
450 
468 
476 
450 
439 
564 
$19 
$28 
$39 
549 
S58 
S68 
S79 


1660= 


1Q987= 


1905= 


1619= 


oe we we we we 8S we we 86 woe ws ws wh we we 


“w6 we wt we 28 Bt we CS we Bt wh we US we 


ee we 25 


APPENDIX C3: ASSEMBLER LISTING OF 
THE VISIBLE MONITOR 


UPDATE SUBROUTINE 


SEE CHAPTER S OF BEYOND GAMES: SYSTEMS 


SOFTWARE FOR YOUR 6502 PERSONAL COMPUTER 


BY KEN SKIER 


KERDERBRAEBERRESEEBEELERES HABEAS EHELBRSEESASGHESEASE 


EQUATES 


EEEEEHABRLEGLEREBEBSSSEHSADHHEESESHEAERABHAREBS 


TV.PTP = @ 


GETPTR = 2 


PARAMS = $100@ ADDRESS OF SYSTEM BATA 
BLOCK. 


ARROW = PARAMS+7 
THIS DATA BYTE HOLDS YOUR 
SYSTEM S CHARACTER CODE 
FOR AN UP-ARROM. 


ROMKEY = PARAMS+S 
ROMKEY IS A FOINTER TO 
YOUR SYSTEM S SUBROUTINE 
TO GET AN ASCIT CHARACTER 
FROM THE KEYBOARD. 


DUMMY = PARAMS+S$19 
DUMMY RETURNS WITHOUT DOING 
ANYTHING. 


5a 
5308 
£04 8620= SPACE = $22 

61g 

620 OYTF= RUBOUT = S7F 

630 

640 Ba0D= CR = $00 ASCII FOR CARRIAGE RETURN. 
653 
659 
673 
65a 
63¢G 
7S 
716 
720 
738 
74a 
TOo8 
158 
7G 
786 
739 
Bag 
616 
824 
633 
644 
BSG 
cbhG 
arQ 1160= TYUSUES 
SES 11i80= CLR. TV 
Sse 
9a4 
S10 1288= VMSUBS 
926 
936 
$40 1294= GET.SL 
959 
35S 
978 
938 
338 
1625 
1919 
L152 
1834 
1944 
1254 
1956 
1a7To 
1986 
19936 
1166 
1119 
1124 
11isG 
1144 
1i56 


we 28 we ue 


HEKEELEEEERHEERELEBEEEHKESHEEHAEBEBLEBEREERHEEK 


REGUIRED SUBROUTINES 


BRERA EBCKBKEKEEHE DE ELEEESEREEBRERELREREEERESEBBERSES 


$1194 
TYUSUBS CLR.TYV CLEARS THE SCREEN. 


wa an 
t Ml 


$1264 STARTING PAGE OF VISIBLE 
MONTTOR CODE. 


VMNSUBS+2S4 
GET.SL GETS THE CURRENTLY- 
SELECTED BYTE. 


KEBAB PAB BEER BESEDHABBEREEE BEEBE ABH RHBRES 


USER-MODIFIABLE DATA 


EVES HERE E HEEB ESEREE HK FLHKEKEHEERMERAEKHKE 


oe we we we OS ve 8 te Oe Ok ee we we 8 ee ek wk le wt OE le 
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1166 
1173 
1186 
1134 
1284 
1214 
1220 
1236 
1240 
1250 
1266 
1270 
i2od 
12358 
13580 
13516 
13290 
1336 
{348 
1359 
1368 

270 
issu 
13294 
1486 
1410 
1429 
143d 
1448 
1456 
1450 
147@ 
1488 
1493 
15608 
1514 
1524 
1536 
1549 
i558 
1569 
1570 
158¢ 
1594 


1603- 


1610 
162@ 
1634 
1646 
1656 
1664 
1e7Q 
1£380 
1630 
17e@a 
1710 
1726 


1730 


12@8 


1288 00 


1261 GO 


1202 9d 


izGs Ud 


1204 03 


1261= 


1205 ¢ouG 


12E@ 


12E0 SCE819 GETKEY IMP CROMKEY 3 


1 ws ws wa wp 


n 
m 
c 
o 


4) a AQ 70 

we we fT] we fT] we fT) we fT] wo we 
ava” ae 
~<~< x*« oD 


a 
U 


s 


SELECT 


ee ae 26 2B We oF wt let ls SE Ue flO 


* = VEISUBS 

~-BYTE 6 NUMBER OF CURRENT FIELD. 
(MUST BE G-6. 3} 

BYTE 8 IMAGE OF ACCUMULATOR, 

-BYTE @ IMAGE OF X-REGISTER. 

BYTE @ IMAGE OF Y-REGISTER. 

BYTE @ IMAGE OF PROCESSOR STATUS 


REGISTER. 


REGS = REG.A 


~WORD O POINTER TO CURRENTLY- 


SELECTED ADDRESS. 


ELEREBBHEEEEEEEEBEBECAELESKESEERRFESHSEHELESLESES 


KEYBOARD INPUT ROUTINE 


FEERKKEHAEHESFBKEFRSESESERSEESEESKEAG EKEEEKREAGESE 


* = YMNSUBSTSEOD 


JSR GETKEY CALLS YOUR 
SYSTEf’ S KEYBOARD INPUT 
ROUTINE INDIRECTLY, 
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1fDe F  EAERHDBEBEEKKSEKAASHHKSREBEKEBBEBHEBESSRERS EDS 
1763 3 
L7rTs H MONITOR-UPDATE 
ivea 3 
ivT2o §  KKEEEERKESESEBHHHEERKHABESKEREEREKERE SE ERLRERSSDSE 
Leb 3 
L613 3 
123 3 
1636 3 
les $ 
1854 IZes 2GEG12 UPDATE JSR GETKEY GET A CHARACTER FROM THE 
1seG ; KEYBOARD. 
is7ra 3 
LES69 icES C93 CMP #° > IS IT THE ’ >» KEY? 
JESM 12ES DA1LG BNE IF.LSR IF NOT, PERFORM NEXT TEST. 
1983 3 
i9iG L2E8 EEBG12 NEXT.F INC FIELD IF SO, SELECT NEXT FIELD. 
1924 12ED ADSS12 LDA FIELD 
19355 l2ra Ccga7 Ciir #7 IF ARROW WAS UNDER RIGHT-~ 
1949 12F2 Deas BNE UF.LEXL MOST FIELD, PLACE IT UNDER 
1359 L2F4 ASEa LDA #2 LEFT-mosT FIELD. 
ISEH 1276 Bnaqgiz2 STA FIELD 
1979 1l2FS €h UP.L.EX1 RTS THEN RETURN TO CALLER. 
1985 ; 
L926 3 
26H izrA C3SC If.LSR CrP #°< IS IT THE ’<’ KEY? 
2819 LleFC D@OB Brick IF .SP IF NOT, PERFORM NEXT TEST. 
z2acu 3 
2939 12FE CE@G12Z2 PREV.F DEC FIELD IF SO, SELECT PREVIOUS 
2444 1351 1905 BPL UP.LEXZ FIELD: THE FIELD TO THE 
2456 1345 ASES LDA #6 LEFT OF THE CURRENT FIELD. 
2HE4 13565 Sbssgi2 STA FIELD 
2470 1225 6S UP. EX2 RTS THEN RETURN 
24ag : 
2050 H 
2184 1369 C928 IF.SP CMP €SPACE IS IT THE SPACE BAR? 
211@ 1368 DAgS BNE iF.CR IF NOT, PERFORM NEXT TEST. 
21258 r 
2155 12360 EFW@512 INC.SL INC SELECT IF SO, STEP FORWARD THROUGH 
2143 1316 Dees BNE #45 MEMORY BY INCREMENTING 
2153 iLsiz EEGE12 INC SELECT+1 THE POINTER THAT SELECTS 
2188 ; THE ABPRESS TO BE DISPLAYED. 
21lre 1315 68 RTS THEN RETURN TO CALLER. 
2183 ; 
21568 ; 
226A 13165 C3GD IF.CR CMF #CR IS IT THE CARRIAGE RETURN? 
2218 1318S DevC Big IFCHAR IF NOT, PERFORM NEXT TEST. 
Ze 3 
225 131A ADSS12 DEC.SL LBA SELECT IF SO, STEP BACKWARD THROUGH 
224@ 131D Dgas BNE #45 MEMORY BY DECREMENTING THE 
Hcl J3lF Creeel_2 DEC SELECT+1 POINTER THAT SELECTS THE 
2265 1322 Ceg5iz EC SELECT ADDRESS TO BE DISPLAYED. 
227i 1325 ty RTS THEN RETURN. 
Vals $ 
2234 ; 
2366 1326 AEGEL2 IF CHAR LOX FIELD IS ARROW UNDER CHARACTER 
Z3lb L328 Ebe2 CPX #2 FIELD CFIELD 237 
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23286 132B DG1B BNE IF .GO IF NOT, PERFORM NEXT TEST. 


23308 ; IF SO, 

27348 1L32D AS PUT.SL TAY STORE THE 

2358 132E A5aG LDA TV.PTR CHARACTER IN THE CURRENTLY- 
2368 1338 48 FHA SELECTED ADDRESS. 

2374 1331 ABIL LOX TYU.PTR+1 CPRESERVING THE ZERO PAGE. 3 
2389 1333 ADSZS12 LOA SELECT 

2393 1336 8500 STA TU.FTR 

2480 1338 ADIG12 LOA SELECT+HL 

27419 \33B 85a1 STA TU.PTRIHL 

2420 122D 98 TYA 

743G@ 1336 Agee LDY #2 

2449 1348 91420 STA CTU.PTR),Y 

2456 1342 S691 STX TU.PTR+L 

24608 1344 62 PLA 

2478 1345S 85eqg STA TU.PTR 

2488 1347 6a RTS THEN RETURN. 

2439 ; 

2540 ; 

2519 1348 C347 $IF.GO CMP #’°G IS IT °G FOR GO? 

2528 134A DB23 BNE IF .HEX IF NOT, PERFORM NEXT TEST. 
2530 ; 

2549 134C ACH312 GO LOY REG.Y IF SO, LORD REGISTERS 

2558 134F AEBZ12 LUX REG.X FROM REGISTER IMAGES... 
2560 1352 ARB412 LDA REG.P 

2578 1355 48 PHA 

7589 1356 ADG112 LDA REG.A 

2599 1353 23 PLP 

2628 13SA 286C13 JSR CALLIT AND CALL SELECTED ADOoRESS. 
2618 135D 99 FHP WHEN THE SUBROUTINE RETURNS. 
2620 i3S5E snB112 STA REG.A SAVE REGISTER VALUES IN 
2638 1361 gfaz12 STX REG.X REGISTER IMAGES. 

2649 1354 8Cca3z12 STY REG.Y 

265@ 1367 58 FLA 

2664 1358 8D9412 STA REG.P 

267G 136B 6a RTS THEN RETURN TO CALLER. 

2686 ; 

2698 ; 

2706 136C 6C@512 CALLIT JMP (SELECT) JSR CALLIT CALLS THE 

2710 ; CURRENTLY-SELECTED ADDRESS, 
2728 ; INDIRECTLY. 

273g 5 

274@ ; 

2758 136F 48 IF.HEX PHA SAVE KEYBOARD CHARACTER. 
2766 1378 2@DS13 JSR BINARY TS IT ASCII CHAR FOR B-S OR 
2779 A-F? IF SO, CONVERT TO BINARY. 
2730 

2758 

2889 1373 3048 EMI IF.CLR IF KEYBOARD CHAR WAS N 
2819 @-3 OR A-F, PERFORM NEXT 
28208 TEST. 

2838 

2849 1375 Aa TAY FULL KEYECRRD CHARACTER 
2859 1376 68 PLA FROM STACK, VIHILE SAVING 
2860 1377 38 TYA BINARY EQUIVALENT LN A AND Y. 
28768 ; 

2882 1378 AFBBIZ Lox FIELD TS AKROW UNHER ADDRESS 
7ag@ 137B Uui4 BNE NOTADR FIELD CFIELD GI? 
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25084 
2313 
232A 
2338 
2346 
2353 
23h 
2376 
295i 
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Tp 2t 7 
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L$ 


‘one: 
HO 


AZES 
18 
GECS12 
ZE@ol2 
CA 
LOFS 
38 
QBDG512 
BUaSi2 
69 


EQalL 
D418 


Zour 
43 
299412 
BA 

BA 

oA 

BA 
Zora 
EDACLS 
59 
BOACLS 
202013 
68 


a3 


CA 
CR 
CR 
AGES 


18 
LEW112 
a5 
1UWFS 
IDAL12 
SD@112 
BA 


2 Pegs 
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3 
ADRFLD 
ABLOGOP 


a we 


NOTADR 


$ 
3 
ROL. SL 


RGLOOP 


; 
3 
IF .CLR 


LDX 
CLC 
ASL 
ROL 
BEX 
BPL 
TYA 
GRA 
STA 
RTS 


CPA 
BNE 


AND 
FHA 
JSR 
ASL 
ASL 
ASL 
ASL 
AND 
STA 
PLA 
CORA 
JSR 
RTS 


#3 


SELECT 


SELECT+I 


ADLOOP 


SELECT 
SELECT 


#1 
REGFLU 


$30F 


GET.Si 
A 

A 

A 

A 

#3F0 
TEMP 


TEMP 
PUT.SL 


-BYTE @ 


DEX 
DEX 
DEX 
LDY 


CLC 
ASL 
DEY 
BFL 
ORA 
STA 
RTS 


PLA 
crip 


Bhie 


#3 


REGS, X 


RGLOOP 
REGS,& 
REGS.X 


$RUBOUT 


NOTCLR 


he eR 


SINCE ARROW IS UNDER ADDRESS 
FIELD, ROLL HEX DIGIT INTO 
ADDRESS FIELD BY ROLLING IT 
IT INTO THE POINTER THAT 
SELECTS THE DISPLAYED 
ADDRESS. 


THEM RETURN. 


IS ARRON UNDER FIELD 1? 
IF NOT, IT MUST BE UNDER 
Al REGISTER FIELD. 


ROLL 4 LSB IN A INTO 
CURRENTLY-SELECTED BYTE. 

GET THE CURRENTLY-SELECTED 
BYTE AND SHIFT LEFT 4 TIMES... 


PUT IT IN CURRENTLY-SELECTED 
ADDRESS AND RETURN. 


THE ARROW MUST BE UNDER A 
REGISTER IMAGE: FIELD 3, 
4, 5, OR G&G. 


ROLL HEX DIGIT INTO 
APPROPRIATE REGISTER IMAGE. 


RESTORE KEYBORRB CHARACTER. 
IS IT RUBOUT? CIF YOUR 
S'STEM GOESN’ T HAVE A 
RUEOUT KEY, SUBSTITUTE THE 
CODE FOR THE KEY YOU’ LL USE 
TO CLEAR THE SCREEN. ) 


IF IT ISN’ T THE * CLEAR 
SCREEIV KEY, PERFORM NEXK 


34968 
3484 
3566 
3519 
3528 
3530 
3544 
35553 
3569 
3578 
3520 
3536 
3682 
3618 
3620 
35638 
3549 
3650 
3552 
3678 
S685 
2830 
3723 
3718 
3720 
3733 
3748 
37523 
SrEg 
3rTra 
37289 
3733 
3863 
3818 
3920 
3838 
3840 
2B50 
3E60 
387S 
3880 
3534 
3520 
3918 
3328 
3329 
3349 
3352 
3568 
3970 
3983 
3339 
4360 
4915 
4420 
4934 
4644 
4959 


13cS 
L3C5 


13cg 


SCE 


13U1L 


1304 


2ae@B1l 
53 


cssl NOTCLR 


BE84 


5e 
58 


23 


62 


2910108 OTHER 


SY 


e we 48 wp we we 


00 we 28 we we 88 ws we 88 ws we 4S we 88 wt we we we OE ee lw ee le we lo 


JSR CLR.TYV 


RTS 


CMP #° Q 
BNE OTHER 


PLA 
PLA 


PLP 


RTS 


JSR DUMMY 


RTS 


TEST. 


IF IT IS, THEN CLEAR THE 
SCREEN AND RETURN. 


IS IT *Q@ FOR QUIT? 
If NOT, PERFORM NEXT TEST. 


IT IS “Q’ FOR QUIT. THE 
USER WANTS TO RETURN TO THE 
CALLER OF THE VISTBLE 
MONITOR. SO LET’ S DO THAT: 
POP UPDATE’S RETURN ADDRESS. 


RESTORE INITIAL 6502 FLAGS. 
VISMON’ S RETURN ADURESS 15 
NOW ON THE STACK. 

SO RETURN TO CALLER OF 
VISHON. IN THIS WAY, 
VISMON CAN BE USED BY ANY 
CALLER TO GET AN ADDRESS 


FROM THE USER. 


REPLACE THIS CALL TO 
BUMMY WITH A CALL TO ANY 
SUBROUTINE THAT EXTENDS 
FUNCTIONALITY OF THE 
VISIBLE MONITOR. 

THEN ROTURN. 


KSBEBESKEHEKEKEEREREHEEHEKRHHKSESFSESSEADLFEBAHFESF THK 


ASCII TO BINARY 


FEESRELRAELEREREGRERHRELED AE KEEREE FEHESEBESEHE HSS 


IF ACCUMULATOR HOLDS ASCII 
H-9 OR A-F, THIS ROUTINE 
RETURNS BINARY EQUIVALENT-- 
OTHERWISE, IT RETURNS GFF. 
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4965 1305 
4475 1305 
4”459 1350S 
40906 13BA 
4169 1500 
4110 L3De 
41238 13520 
41239 1352 
4144 135&4 
4159 1S5E5 
4160 1SE7 
4179 13&9 
4166 13£B 
41354 

4296 13SEC 
4219 13£E 
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38 

ES39 
SS5F 
CSA 
SOBE 
ESAT 
CaI1B 
BOSS 
38 

CcSaA 
Buds 
ASF F 
6a 


ALAS 
6B 


BINARY SEC 


SBC 
BCC 
CHP 

coe 
SBC 
CrP 
BCs 
SEC 
ChiP 
BCS 
LOR 
RTS 


LDA 
RTS 


+330 
BAD 
#20A 
GvUD 
+7 
#916 
BAD 


+$GA 


Goon 
#50 F 


#@ 


Appendix C4: 


Print Utilities 


) 
ts 
3 


WwW oC) 
JN fy 
moe 


ee 
—v 


hAbOW DOG w Ww 


Ke OuwN oon 
yom! ws 8 es) 


we wh ue wh we wk OF ek 8 ae lee ee ls 8 se wt we 6 le ee BO le ws we se le we wt ne 


we @8 we 8268 wo we hb we we wth We Ce wo V8 we WS ws 


APPENDIX C4: ASSEMBLER LISTING OF 
PRINT UTILITIES 


SEE CHAPTER Y OF BEYOND GAMES: SYSTEMS 
SOFTHARE FOR YOUR 65282 PERSONAL COMPUTER 


BEPEBRKEEREE FF EKFKKEPEEBESFEKREEEREESSIRSERFERS 
CONSTANTS 


HEDREBEBRE DERE ERE SEHR BE BEEREBHLERESRSERS 


CR = $60 CARRIAGE RETURN. 


ETX = SFF THIS CHARACTER MUST 
TERMINATE ANY MESSAGE STRING. 


LF = $GA LINE FEED. 
OfF = @ 


ON = SFF 


EEALELBHBELAL SPEAKS BALK HEBRDHEHDELERS SEHSESBS 
EXTERNAL ADDRESSES 


HEEB REARABAHEBERAEER SE EADERAEERER EERE ASERSD 
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536 
628 
516 
624 
636 
549 
658 
669 
67% 
680 
696 
788 
110 
726 
73 

748 
res)! 
ra=i5) 
7B 
414) 
730 
3ag 
618 
829 
B39 
B44 
856 
666 
87a 
BSH 
8sg 
306 
918 
5298 
939 
948 
S5G 


360. 


978 
98a 
358 

1988 

11a 

1624 

1838 

134g 

1259 

1962 

1872 

1288 

1939 

1189 

1118 

1128 

1138 

114g 

1150 

1160 
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160G= 


1gaCc= 


1@aAR= 


LSGE=- 


1160= 
11B6= 


1200= 


1205= 
12594= 


1=6D= 


we «8 


ae MP ws Of wt et ws we 8 le we CE lw 


PARAMS 


ROMPRT 


ROMTUT 


USROUT 


TYSUBS 
ASCII 


UMPAGE 


SELECT 
GET.SL 
INC. SL 


$1606 ADDRESS OF SYSTEM DATA BLOCK. 


PARAMNS+233C 
POINTER TO ROM ROUTINE THAT 
SENDS CHAR TO SERIAL OUTFUT. 


PARAMS+3:2A 
POINTER TO ROM ROUTINE THAT 
PRINTS A CHAR TO THE SCREEN. 


PARAMS+$2E 
POINTER TO USER-BIRITTEN 
CHARACTER OUTPUT ROUTINE. 


$i11aG 
TUSUBS+$B6 


$1296 VISIBLE MONITOR STARTING 
PAGE 


UMNPAGE+S 
UMPAGE +394 
VMNFAGE+S 16D 


EKKAKASEKSKAAELEKSES BS HAEDSAABSESSHEEEGERBS EBL 


VARIABLES 


KBBEBEEELEEEBEKBRERHABRSERABEE EER PHS HD EEHEES SH HF 


La9 
1656 
1555 
1676 
LEE 
IES9 
17a 
171g 
1Vea 
1738 
174Qo 


1492 


1463 


1494 


4A 149% 


1488 


l4eA 8 


146) 


146E£ 
141ia 
1413 


CB 


8G 


04 


AIBG 


Soa114 


6a 


* = $1456 


PRINTR .BYTE OFF 


TUT -BYTE ON 


UScR ~BYTE OFF 


CHAR BYTE G 


REPEAT .BYTE @ 


TEMP.X .BYTE @ 


+] 
3 
H 
5 
E 
RETURN .WORD @ 
; 
3 
3 
; 
3 


. 
3 
° 
9 
. 
3 
e 
3 
e 
3 
e 
3 
e 
9 
e 
3 
e 
3 
. 
6 
s 
J 
. 
3 
® 
9 
s 
3 
® 
3 
e 
3 
e 
+ 
3 
9 
e 
s 
« 
3 
3 
° 
9 
s 
: | 
° 
3 
° 
9 
s 
9 


TUT.ON LDA #0N 
STA TUT 
RTS 


3 

; 

TUTOFF LDA #0FF 
STA TUT 
RTS 


PRINTER OUTPUT FLAG. 


TYVT OUTPUT FLAG. 


OUTPUT FLAG FOR USER- 
PROVIDED OUTPUT SUBROUTINE. 


CHARACTER MOST RECENTLY 
PRINTED BY FR.CHR. 

CHAR=60 MEANS PR.CHR HAS 
NEVER PRINTED A CHARACTER. 


THIS BYTE IS USED AS A 
COUNTER BY SPACES, CHARS, 
AND CR.LFS. 


DATA CELL: USED BY PR.MSG. 


THIS POINTER IS USED BY 
PUSHSL AND FOP.SL. 


FEEBRERDASEBAEDEBEEEBHBEE KREG EHSEEEFHEFEDBABS 


DEVICE SELECT SUBROUTINES 


HESERHEFHEERSFEKEREAEERDESESE SERFS ERKDASABERE 


SELECT SCREEN FOR OUTPUT 
BY SETTING ITS DEVICE FLAG. 


DE-SELECT SCREEN FOR 
OUTPUT BY CLEARING ITS 
DEVICE FLAG. 


1750 
1759 
1778 
1780 
1798 
1sa0 

1818 
19822 
1838 
1849 
1ssa 
1s6a 
1878 
1esa 
1830 
1920 
191G 
1920 

193g 
1940 

i9sa 
196G 
1972 
isea 
igga 

2628 
2010 
2020 
2830 
20348 
2950 
2a6a 
2070 
248g 
2a90 
2106 
2118 
2125 
2130 
2148 
21Sa 
2160 

2178 
2190 
2190 
2200 
2218 
2228 
2230 
2240 
2250 

2260 
2272 
2280 
2238 
2320 
2310 
2320 


1414 
1416 
1415 


141A 
141 
L41F 


1428 
1422 
1425 


1426 
1423 
142B 


142C 
142F 
1432 
1435 


1436 
1439 
1435C 
143F 


ASFF OF 
eDue14 
6 


~ ON 


ee we ws we we 


AS2ZB PR.OFF 
80ag14 
6 


3 
’ 
S 


ASF USR.ON 
606214 
1) 


; 
3 
3 
S 


F398 U 
800214 
62 


ROFF 


290814 ALL.ON 
291414 

262614 

58 


3 
2OBEL4 ALLOFF 
2G1A14 
202514 
6G 
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LDA #0ON 


STA 
RTS 


LDA 
STA 
RTS 


LDA 
STA 
RTS 


LOA 
STA 
RTS 


JSR 
JSR 
JSR 
RTS 


JSR 
JSR 
JSR 
RTS 


FRINTR 


#0OFF 
PRINTR 


ON 
USER 


OFF 
USER 


TUT.ON 
PR.ON 
USR.GN 


TUTOFF 
PR.OFF 
USROFF 


SELECT PRINTER FOR OUTPUT 
BY SETTING ITS DEVICE FLAG. 


BE-SELECT PRINTER FOR OUTPUT 
BY CLEARING ITS DEVICE FLAG. 


SELECT USER-WRITTEN 
SUBROUTINE BY SETTING 
USER’ S DEVICE FLAG. 


DE-SELECT USER-KRITTEN 
OUTPUT SUBROUTINE BY 
CLEARING ITS DEVICE FLAG. 


SELECT ALL OUTPUT DEVICES 
BY SELECTING EACH OUTPUT 
GEVICE INDIVIDUALLY. 


QE-SELECT ALL OUTPUT DEVICES 
BY DE-SELECTING EACH ONE 
INDIVIDUALLY. 


23398 
2340 
2350 
2369 
2370 
23580 
2396 
2468 
2418 
2428 
2430 
2446 
2453 
2450 
2470 
2498 
24308 
2568 
2519 
2526 
2538 
2546 
2556 
2568 
2576 
2580 
2550 
2680 
261G 
2620 
2638 
2648 
2658 
2669 
2679 
2686 
2693 
2788 
2719 
2728 
2739 
2746 
2756 
2789 
2778 
2786 
2793 
2800 
2818 
2829 
2838 
2840 
2850 
2563 
2878 
28383 
2896 
2980 


1448 
1442 


1444 


1447 
144A 


144C 
144F 


1452 
1455 


1457 
145A 


145] 
1469 
1462 
1465 


1463 


1469 


146C 


CS2aa 
Faz4 


S0eg314 


ADGL14 
FeoS 


ADY314 
295914 


ADZa14 
Faas 


ADGS14 
2B6C14 


ADG214 
FOS 

ADBS14 
2eor 14 


3) 


a8 we we as 88 we we we 


28 we WE we He BF ue we we we 


PR.CHR 


PR 


IT 


wo wn as oe ae ee te Doe we 


ERELEEEKERASESEFRERRELESERSEEEREESREEEEFEDSES FAS 


A GENERAL CHARACTER FRINT ROUTINE 


SELEBEEKEAKSREEAKETEBHEBEREERGSLSERHEABDHARESADSS 


PRINT CHARACTER IN ACCUMULATOR 


CMP 
BEQ 


STA 


LDA 
BEQ 


LDA 
JSR 


LDA 
BEQ 


LDA 
JSR 


LDA 
BEQ 
LOA 
JSR 


RTS 


SCBHAI@ SEND.1 IMP 


$ 
6COC1IG SEND.2 IMP 


£2 
EXIT 


CHAR 


TYT 
IF .PR 


CHAR 
SEND. 1 


PRINTR 
if .USR 


CHAR 
SEND.2Z 


USER 


EXIT 


CHAR 
SEND.3 


ON ALL CURRENTLY-SELECTED OUTFUT DEVICES. 


TEST CHARACTER. 

IF IT’S A NULL. RETURN 
WITHOUT PRINTING IT. 
SAVE CHARACTER. 


IS SCREEN SELECTED? 
IF NOT, TEST NEXT DEVICE. 


IF SO, SEND CHARACTER 
INDIRECTLY TO SYSTEM S 
TVT OUTFUT ROUTINE. 


IS PRINTER SELECTED? 
IF NOT, TEST NExT DEVICE. 


IF SQ, SEND CHARACTER 
INBIRECTLY TO SYSTEMS 
PRINTER DRIVER. 


IS USER-WRITTEN OUTPUT 
SUBROUTINE SELECTED? 
IF NOT, RETURN. 


IF SO, SEND CHARACTER 
INDIRECTLY TO USER-HRITTEN 
SUBROUTINE. 


RETURN TO CALLER. 


VECTORED SUBROUTINE CALLS 


CROMTVT 3 


CROMPRT 2 
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2919 H 
2920 146F 6C@E19 SEND.3 IMP CUSROUT) 
2335 
234g 
2958 
23559 
23579 
2909 
29993 
sbag 
3010 
3220 
3338 
3843 
3453 
3358 
3073 
385d 
3828 
316G 
3116 
3128 
3136 1472 AGED CR.LF LDA #CR SEND A CARRIAGE RETURN 
3140 i474 264014 JSR PR.CHR 
3154 1477 ASBA LDA #LF AND A LINE-FEED TO ALL 
3i6G 1479 264814 JSR PR.CHR CURRENTLY-SELECTED BEVICES. 
3176 147C 69 RTS THEN RETURN. 
3183 $ 
3isg H 
3280 5 
3218 3 
3229 5 
32390 H PRINT A SPACE: 

r 

’ 

$ 

P 


REEDBPRAKLEKSEERBEREBR ES EEEEREEHESE SERED SEKEREDSEAES 


SPECIALIZED CHARACTER GCUTPUT ROUTINES 


EHLESERSEHREEFSSESEESSSEHSESSESEEREABHESHSERESHS HA 


PRINT A CARRIAGE RETURN-LINE FEED 


ee 60 oh we 2 we we OS 28h 48 ws 6 UE hes Ole Oe 


3246 
32503 
3269 
3270 1470 ASZG SPACE LDA #$20 LOAD ACCUMULATOR WITH AN 
32280 147F 204814 ISR PR.CHR ASCII SPACE AND PRINT IT. 
3238 1482 6G RTS THEN RETURN. 

3280 | 
3318 
3322 
3338 
3349 
3358 
3250 
3378 
336a 
3326 
342828 
3418 
342B 
3430 
3444 
34528 
3468 
34708 
3480 


we ob we we 8S we wos BEF we 


HEEGEREEDRABEEEEEES REBATE EEEEEAEBR4ADFELEL EARS 


PRINT BYTE 


BHEHEEKRBKEFBEREAREBESBESSEESEKEDESDSESHERABBERS 
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3430 
3500 
3516 
3520 
3530 
35408 
35568 
3562 
3579 
35380 
35396 
3696 
3614 
3626 
3636 
3648 
3656 
3669 
3670 
3689 
3633 
3768 
3710 
3726 
3738 
3740 
3758 
3768 
3770 
378g 
3736 
3880 
3819 
3626 
3636 
3840 
3850 
3868 
3679 
3368 
3896 
3958 
3910 
3526 
3930 
3540 
23359 
3966 
3378 
3380 
33598 
4000 
4910 
4420 
4434 
4540 
44956 
4069 


1483 
1484 
1485 
14865 
1487 
1488 
14583 


149E 
L48F 
1432 
14395 


1496 


14568 
143B 
143C 
149fF 
14A1 
1L4A4 


1497 
14A8 
14Ag 


43 
4A 
4A 
4A 
4A 
2OBS11 
204514 


68 
2eQBS1L1 
264014 
66 


AIZS 


6SEH414 
48 
REG414 
FYSA 
CEH414 
264914 


68 
18 
S6F9 


PR.BYT OUTPUTS THE ACCUMULATOR, IN HEX, 


TO ALL CURRENTLY-SELECTED DEVICES. 


PR.BYT PHA SAVE BYTE. 
LSR A DETERMINE ASCII FOR 4 MSE... 
LSR A 
LSR A 
LSR A 
JSR ASCII »ee IN THE BYTE. 
JSR PR.CHR PRINT THAT ASCII CHAR TO 
3 CURRENT DEVICE(S). 
PLA DETERMINE ASCII FOR 4 LSB 
JSR ASCII IN THE ORIGINAL BYTE. 
JSR PR.CHR PRINS THAT CHARACTER. 
RTS RETURN TO CALLER. 


“2 an at we BF wt wb ge 88 we ws S48 tk 8 le Oe le Pe le 


SPACES 


wee we 88 ws 


CHRRS 
RPLOOP 


BERREERESKAFKEEEKKAKKEEHKFHAHSEE FHESGHASED GRD HESE BS 


REPETITIVE CHARACTER OUTPUT 


EBKDLERHEBEEREREKALHS SSFEHKAKEKSEHABKFAAEAALSBEHDAAS 


PRINT * SPACES: 


LDA #%29 LOAD A WITH ASCII SPACE. 


PRINT IT * TIMES: 


PRINT X CHARACTERS: 


STX REPEAT PRINT CHAR IN A X TIRES. 
FHA SAVE CHAR VC Be REPEATED. 
LDX REPEAT REPEAT COUNTER TIMED OUT? 
BEQ RPTEND IF SO, EXIT. IF NOT, 

DEC REPEAT DECREMENT REPEAT COUNTER. 
JSR PR.CHR PRINT CHARACTER. 

PLA RESTCRE CHRRACTER TC A. 
CLC LOOP BACK TO PRINT IT 
BCC RPLOOP AGSIN IF NECESSARY. 
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4079 
4080 
4490 
4162 
4110 
4120 
4136 
4140 
4159 
4164 
4179 
41386 
4198 
42H0 
42iq 
4220 
42340 
424G 
42508 
42608 
4270 
4223 
4294 
43090 
4314 
4323 
4338 
4346 
4353 
4369 
437G 
4380 
4359 
4460 
4410 
4426 
4428 
444G 
4456 
4460 
4476 
4436 
4499 
4568 
4516 
4520 
45368 
4546 
4556 
4550 
4570 
45590 
4558 
4600 
4616 
4620 
4636 
4642 


14AB 
14AC 


14AB 
1454 
14B3 
L4B5 
L14BS 


148B 
L4EC 


143E 


14BF 


14C2Z 
1404 
14CS 
LAC? 


14CS 


14CB 
14CB 
14CF 


£401 
1403 
1405 


68 RPTEND 
6a 


as we 


8E6414 CR.LFS 
AEB4I14 CRLOOP 
F463 

CE0414 

267214 


1s 
SarF2 


za 


60 ENB.CR 


© we wes ws 46 we wt wt wa WS se te SF he we wt wk UE Oe M8 


% 
8£6514 PR.MSG 
BOGL 
43 


BSSG 
43 


ALS 
CSFF 
FAC 


F598 
DBZ 
FEOL 
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PLA 
RTS 


CLEAN UP STACK AND 
RETURN TO CALLER. 


PRINT A NEWLINES 


STX REPEAT 
LDA REFEAT 
BEQ END.CR 
DEC REPEAT 
JSR CR.LF 


CLC 
BCC CRLOOP 


RTS 


INITIALIZE REPEAT COUNTER. 
EAIT IF REPEAT COUNTER 
HAS TIMED OUT. 

BDECREMENT REPEAT COUNTER. 
PRINT R CARRIAGE RETURN 
AND A LINE FEED. 

LOOP BACK TO SEE IF GONE 
YET. 


RETURN TO CALLER. 


EREREEEGAEBEKBEHEEYHDSKRESES SETHE SSEEDERESREBEPEERS 


PRINT A MESSAGE 


FRBELREHKSREKBLHBDEDRGEDDERBEABABESS FEE SERESHAHEKDSD 


Ath POINTER IN ZERO PAGE 
POINTS ¥O THE MESSAGE. 


ST TEMP. 


LUA 1.x 
PHA 
LBA 4,X 
PHA 


LUX TEMP.x 


{DNR CG,N) 
CMP #ETA 
BEQ MESGENU 


INC 4,X% 
BNE NEXT 
INC 1, 


SAVE XK REGISTER, WHICH 
SPECIFIES MESSAGE POINTER. 


SAVE MESSAGE POINTER. 


RESTORE ORIGINAL X, SO IT 
SPECIFIES MESSAGE POINTER. 
GET NEAT CHARACTER FROM 
MESSAGE. IS MESSAGE OVER? 
IF SO, HANDLE END OF MESSAGE. 


If NOT, INCREMENT POINTER. 
SO IT POINTS TO NEAT 
CHARACTER IN MESSAGE. 


4E5% 
46500 
4676 
46054 
469% 
4728 


a be A eK 
- 
hs 


th 
NaN IN 
Samm aw 


mn SG) Ms 


~] I 
m & 


4856 
4568 
4379 
4588 
45g 
sani 
4gia 
43520 
4928 
4943 
4950 
4550 
4979 
4984 
4830 
SEOs 
5B18 


oO 8 


Me Oo wy wD 


nudacaiwnooawyn 
Mf Pore bee oe 
OO 8 J m 


14B7 
140A 
1405 


14206 
L40eE 
1425 
lel 
1L4E3 


8 Ree Sand! 


264014 
1S 


SHEB 


9) 


nomnomnom 
ics) 
pe 


Mm oo oo i 


59 
RA 
BS 
Ae 


241215 
BEASI2 
SC26i2 


ce44p1s 


26a4013S 
2635412 
CSF F 
Fae 
244514 


SAFO 


NEXT 


fISGEND 


Aj we 34 we wd we wr WP we wh os Ee ee Ot oe we Se we OP oe 


INT: 


UD 


ap me 


NEATCH 


> 
3 
a 
3 


ENDIT 


JSR FR.CHR 


CLC 
BCC 


PLA 
STA 
PLA 
STA 
RTS 


LOOP 


GX 


PRINT THE CHARACTER.. 
LOOP BACK FOR NEXT 
CHARACTER... 


RESTORE ORIGINAL MESSAGE 
POINTER. ° 


RETURN TO CALLER, WITH 
MESSAGE POINTER PRESERVED. 


KHHHKHKEKSEHLSESEKBBKALEREASESSEARALSEBERFEFRERSE 


PRINT THE FOLLONING TEXT 


PUSHSL 
SELECT 


SELECT+1 


INC. SL 


INC.SL 
GET.SL 
$F TX 
ENDIT 
PR. CHR 


NEXTCH 


SELECT 


SELECT+1 
R FOP. SL 


EDEBEDBBEEBHREESEEEELEBLHFSEHKEHRFESSHEERISEEEKHEBE 


PULL RETURN ADDRESS FROM 
STACK AND SAVE IT IN «* AND 
Y REGISTERS. 


SAVE THE SELECT POINTER. 
SET [SELECT=RETURN ADDRESS. 


ADVANCE SELECT TO STX. 


SELECT NEXT CHARACTER. 
GET IT. 

IS IT END OF MESSAGE? 
IF SO, RETURN. 

IF NOT, PRINT CHARACTER. 
LOOP BARACK FOR NEAT 
CHARACTER... 


RESTORE SELECT POINTER. 
PUSH ADDRESS OF ETX ONTO 


»e. THE STACK. 
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S230 
S240 
SZ50 

26a 
S270 
528 
5290 
52808 
5310 
S328 
5330 
S34G 
S350 
S360 
5376 
S390 
5332 
S490 
S41a 


5420 


9430 
544G 
2450 
5469 
5479 
5484 
$438 
[500 
5514 
5520 
5536 
5548 
5556 
5564 
5574 
5586 
5598 
550a 
5618 
5526 
5636 
5648 
5650 
5569 
58790 
SE6¢ 
5658 
57@0 
571iG 
S728 
S734 
57408 
5754 
S769 
O77 
5758 
5798 
5800 


{5i1 


1512 
1513 
i516 
1517 


LSIA 
1S51D 
IS1ie 
1521 


1522 
1525 
1526 
1523 


LSZA 


152B 
152C 
IS2F 
1538 


15243 
15354 


68 


68 
800514 
63 
ebh7r14 


ANBEI2Z 
48 
ADSZS12 
48 


ADB714 
43 
ADGB1L4 
43 


6G 


ES 
c0B614 
68 
BDG714 


68 
BD0512 
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ae SOC wp 28 ws wt BS wo we Vt oh wat 


e 8S «2h wp we 68 ws OP wet 


RTS 


RETURN CTO BYTE IMMEDIATELY 
FOLLOWING THE ETX. 3 


PFRREEELESHEBMEBEESESRRELAEBEDGARFSESBIRABEBESS 


SAVE, RESTORE SELECT POINTER 


KEBES ASR HEK BERT LEGER HESESSSERSEKFERELEAS ALBERS 


2 
PUSHSL PLA 


P 


we «as 


OC ve es ws we ee we we OF ous 


P.SL 


STA 
PLA 
STA 


LDA 
PHA 
LDA 
PHA 


LDA 
PHA 
LOA 
PHA 


RTS 


PLA 
STA 
PLA 
STA 


PLA 
STA 


RETURN 


RETURN+L 


SELECT+L 


SELECT 


RETURN+L 


RETURN 


RETURN 


RETURN+1 


SELECT 


PULL RETURN ADBRESS FROM 
STACK AND SAVE IT IM RETURN. 


FUSH SELECT POINTER ONTO 
THE STACK. 


PUSH RETURN ADDRESS BRCK 
ON THE STACK. 


RETURN TO CALLER. CALLER 
WILL FIND SELECT ON STACK. 


SAVE RETURN AUDRESS. 


LOAD SELECT FROM STACK 


5812 
5828 
S830 
5940 
Sa5a 
5850 
5878 
S85 
SEsg 
5900 
S310 
5928 


1537 
1538 


153B 
153E 
153F 
1542 


1543 


68 
BDe612 


ADGT14 
43 
ADGS14 
48 


64 


PLA 
STA SELECT+L 


LDA RETURN+t+L 
PHA 

LDA RETURN 
PHA 


RTS 


PLACE RETURN ADDRESS BACK 
ON STACK. 


RETURN TO CALLER. 
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Appendix C5: 


Two Hexdump Tools 


165 
ra) 
rt 
43 
19) 
69 
7@ 
63 
99 
109 
119 
1Za 
{39 
1465 
159 
160 
172 
169 
138 
24g 
219 
228 
23g 
243 
259 
269 
275 
Zao 
233 
Si 
21a 
3293 
32a 
345 
355 
360 
379 
362 
393 
405 
415 
4270 
435 
440 
4565 
46a 
479 
450 
433 
Soa 
S510 
S2a 
S30 
549 
S53 
S66 
S78 


ABTF= 


GaFF= 


en @6 ee @6 woe we C8 66 ws wh 48 we @*F wn 4S wh we ws 2h 68 BO we BF wt BO we we 4S ek wt we OF le URS Me 


APPENDIX CS: ASSEMPLER LISTING OF 


TWO HEADUMP TOOLS 


SEE CHAPTER 8 OF BEYOND GAMES: SYSTEMS 
SOFTWARE FOR YOUR 6582 PERSONAL COMPUTER 


BY KEN SKIER 


EERDRHEEREELSEERAFERSEREEAEEBEBSHAREBEDSSBASSS 


CONSTANTS 


EEHDEBRFRERHKEEBEBEBERBEFAEEAREBSEEDASEAKAEADSEDHS 


CR = $62 


LF = SQA 


TEX = S7F 


ETA = SFF 


CARRIAGE RETURN. 


LINE FEED. 


THIS CHARACTER MUST START 


ANY MESSAGE. 


THIS CHARACTER MUST END 
ANY MESSAGE. 
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20 we wh we 8 we we OF ep et we we MY owe we Us 


we we 


we WP we we we we we oh 08 ue Oe se te we 


ELELBEREKEREDBEKBREHEEE ELE BEEEEEEDELEREEBERERAEBE 


EATERNAL ABURESSES 


HFERPLEBEHHAGHEEKEREEKSEEREBAREEEREDEEEKERAARSE 


TVSUBS=$1199 STARTING PAGE OF DISPLAY 
CODE. 

CLR. TU=TUSUBS 

ASCIT =TUSUES+S85 


VUMPAGE=$1260 STARTING PAGE OF VISIBLE 
MONITOR CODE. 

SELECT=VNPASGE+S 

VISMON=UMNPAGE+7 

GET. SL=UMPAGE+394 

INC. SL=VMPAGE+S31@0 


PRFPAGE=31480 STARTING PAGE OF PRINT 
UTILITIES. 

TUT. ON=PRPAGETS 

TUTOFF=PRPAGE+SG9E 

PR.QN =PRFPAGE+S14 

PR.OFF=FRPAGETSIA 

PR. CHR=PRPAGE+S49 

CR.LF =PRPAGE+S372 

SPACE =PRPAGE+S70 

SPRCES=PRPAGETS96 

PR. BYT=PRPAGE+S93 

PRINT: =PRPAGE+SE4 

PUSHSL=FRPRGE+S112 

POP. SL=PRPAGE+2125 


RH BABAR ERED EREREBHEEEHEEREDEHEAAHEEEAFEE 


VARIABLES 


1168 
1179 
1180 
jisa 
1280 
1210 
1220 
1226 
1249 
1254 
1260 
1278 
1z80 
1zg 
1394 
1219 
1326 
1338 
1348 
12598 
1368 
1375 
1380 
1339 
1469 
141g 
1429 
142¢ 
1449 
1458 
1460 
1475 
1468 
1498 
1599 
{51g 
1528 
1539 
1543 
1559 
156g 
1578 
1538 
1595 
1668 
1618 
162G 
16353 
1649 
1658 
1659 
1575 
ssa 
16Sa 
17ag 
1710 
1728 
17340 


1558 


1556 


1551 


1552 


iS54 


1556 


ISS? 


LSSA 
1550 
15&B 
iS63 


LSeS 


1S68 
15665 


1S568E 


1S71 


#=$1550 
; 
; 
3 
; 
ao COUNTR .BYTE @ 
; 
: 
a4 NUMLNS .BYTE 4 
; 
; 
; 
aaa SA «WORD @ 
3 
FFFF EA .WORD $FFFF 
; 
3 
ag COLUMN .BYTE @ 
; 
; 
; 
3 
; 
; 
; 
; 
3 TUDUMP 
; 
; 
; 
; 
; 
; 
209814 TYDUMP JSR TUT.ON 
ADSL1S LDA NUMHLNS 
eDSais STA COUNTR 
3 
AD@S12 LOA SELECT 
29F8 AND #$F8 
809512 STA SELECT 
297214 JSR CR.LF 
ZO72Z214 JSR CR.LF 
ZGAL1S DUMPLN JSR PR.ADR 
? 
Z2a7214 JSR CR.LF 


we we we 


EBREERELHEBEREDRESEAEGSEEEDSEFEAERERERAESKBEEABEESD 


THIS BYTE COUNTS THE LINES 
DUMPED BY TYVDUMP. 


NUMNBER OF LINES TO BE 
DUMPED BY TYVDUMNP. 


POINTER TO START OF MEMORY 
TO BE DUMPED BY PRDUMP. 
POINTER TO LAST BYTE TO 

BE DUMPED BY PRDOUMP. 


BATA CELL: USED -BY PRLINE 


SLBEEABDSES SEB BREE BERD BEELEBEEREDEBABEBRER 


LBBB BREADS SABES FHEDLEFEEREKHE GE HEREFESEHRES 


SELECT TV3T AS OUTPUT DEVICE, 
SET COUNTR TO NUMBER OF 
LINES TO BE QUMPED. 


SET SELECT TO BeGINNING Or 
A SCREEN LINE, BY ZERGING 
3 LSB IN SELECT. 


SKIP THO LINES ON THE 
SCREEN. 


PRINT THE SELECTED ADDRESS. 


ADVANCE TO A NEW CINE ON 
SCREEN.  CNOT NEEDED ON 
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1749 
175d 
176@ 
177B 
1768 
17398 
184g 
1Bi@ 
1626 
1838 
1840 
1656 
19366 
187G 
18389 
1isg@ 
1530G 
1919 
1320 
1336 
1944 
1355@ 
L360 
197¢ 
196@ 
19936 
2O6a 
2ule 
2Aaco 
2436 
2640 
2656 
Zhan 
27 3 
2E8G6 
2898 
2i1ne 
2110 
2126 
2i3a 
2140 
2158 
2160 
217a 
2188 
2198 
22648 
2219 
2220 
2230 
2240 
2256 
2250 
22746 
22356 
238 
23142 
2319 


1574 
1577 
157A 
1S7D 


1564 
15862 


iS84 


1596 


15393 


we we wt ius 


287DL4 OMPBYT JSR 


2BSALS 


298013 


ADZS512 
2367 
DSF 


207214 


ADBZS12 
250F 


DaS3 
207214 


CES@a1IS 
B408 


26G6E14 


60 


a 


we “se 


we we 


Ty) we wa 


ap we 


et we 88 ws we we BO we we 8 


4 we wea 28 wt ws OF lw 


DONE 


JSR 


JSR 


LDA 
AND 
BNE 


JSR 


LDA 
AND 


BNE 
JSR 


DEC 
BNE 


JSR 


RTS 


SPACE 

DUMPSL 
INC.SL 
SELECT 


#OC 
BMPBYT 


CR.LF 


SELECT 
fOr 


TF DONE 
CR.LF 


COUNTR 
DUMPLN 


TUTOFF 


SYSTEMS WITH SCREENS MORE 
THAN 27 COLUMNS WIDE.) 
FRINT A SPACE TO THE SCREEN. 
DUMP SELECTED BYTE. 

SELECT NEAT BYTE. 

IS IT THE BEGINNING OF A 


NEM SCREEN LINE ¢€3 LSB=87) 
IF NOT, DUMP NEXT BYTE... 


IF SO, ADVANCE TO A NEW LINE 
ON THE SCREEN. 


DOES THIS ADDRESS MARK THE 


BEGINNING OF A NEW HEX LINE? 
C4 LSB = 87) 


TF SO, ADVANCE TO A NEW 
LINE ON SCREEN. 

DUMPED CAST LINE YET? 
IF NOT, DUMP NEAT LINE. 
BDE-SELECT TYT AS OUTPUT 


DEVICE. 


RETURN TO CALLER. 


HREKEEHKKEKEREELERDABAKEREESFEE ESSER RESERRAELELES 


DUMP SELECTED BYTE 


HEAKAEEKE HS EERABEEG HES EREREHKEREERREGREDSEESEERESSE 


159A 209412 DUPPSL JSR SET.SL 


1595 
ISA 


243314 
60 
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JSR 


RTS 


PR.BYT 


GET CURRENTLY-SELECTED EYTE 
AND FRINT IT It Hex FORMAT. 
RETURN TO CALLER. 


oY 
aw 


IOV 8 garn 


( 


« we) 
tO RY 
Cy 


NNN NN MM ph 
MNO ob 


~W wy) OW Ww Ww 


(6 


EDREBDABBBEESEBEEKEEPEBEBDH SEBKELASABBEEESRALEDE 


PRINT SELECTED AUDRESS 


HERE BEEBEREREREREBRRDSEFABEK EE KABEKEAEEBEEBEEK 


N 
aN 
N 
WS 
at we 88 wo wh we 28 26 ws we we we ee HE le Ope wR 


2528 {SAL ADBE1Z PR.ADR LOA SELECT+1 FIRST PRINT THE HIGH BYTE... 
2538 15A4 280314 JSR PR.BYT 

2544 15? ADGS5i2 {BDA SELECT e.. THEN PRINT THE LOD BYTE. 
2558 ISAA 246314 JSR PR.BYT 

2556 1LSAD 68 RTS 


KKK EFEERRBAEBEELERBEDHEBE ERB ESSE EEEKEPDAS ERED 


tJ 
(yj 
t 
ral 
“ws op we Ve we we we 29 we BP we we 


PRINTING HE*XDUMP 


SHRSMRLLREE PHRASE EDBEBREDHLAD DOBEEKEREEEESEF 


N 

“J 

i UN 
| G& 3 


2763 iSAE 26C91L5 PROUMP JSR TITLE DISPLAY THE TITLE 

277 1SB1 2BHES1S5 JSR SETABS LET USER SET START ADDRESS 
AND END ADDRESS OF MEMORY TO 
2730 BE DUMPED. 

2BH9 CSETADS RETURNS W/’SELECT=EA. ) 
2aif 19584 20A517 ISR GOTOSA SET SELECT=SA. 

2529 1SB7 261414 JSR PR.OW SELECT PRINTER FOR OUTPUT. 
282 3 

2045 ASEA 2GEEi6 JSR HEADE OUTPUT HEXDUMP HEADER. 

ceca 
2668 
2874 1586D 204217 HXLOOP JSR FRLINE DUMP ONE LINE. 

2868 15CG 1@FB BPL HALOOP DUMPED LAST LINE? IF NOT, 
2896 DUMP NEXT {.INE. 
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2900 
2919 15C2 207214 JSR CR.LF IF SO, GO TO A NEW LINE. 
2920 
2939 15CS 201A14 ISR PR.OFF DE-SELECT PRINTER FOR OUTPUT. 
2949 

2959 15C8 6a RTS RETURN TO CALLER. 

2950 
2976 
295g 
2995 
Saga 
3910 
3028 
3939 
3048 
3253 
2868 
3078 
3280 
agg 
31ea 
3119 
3120 
3138 
3140 ; 
3i5Q 15CS 2@@G11 TITLE JSR CLR.TYV CLEAR THE SCREEN. 

23168 15CC 209814 JSR TUT.ON SELECT SCREEN FOR OUTPUT. 
3178 1SCF 206414 JSR PRINT: OUTPUT THE FOLLOWING TEXT: 
3180 1502 7F ~BYTE TEX TEXT STRING MUST START 
3182 WITH A START OF TEXT CHAR. 
3286 15D3 8D ~BYTE CR,’ PRINTING HEXDUMP’ ,CR,LF,LF 
3289 15D4 SB 

22029 15D5 52 

3282 15D5 49 

3288 ISD7 4e 

3230 i5ne 54 

3289 15DS 49 

2206 1SDA 4E 

3288 1SDB 47 

3223 1SDC 20 

3280 1S0D 48 

3288 LSDE 45 

3288 15DF 59 

3288 1SEQ 44 

3289 1SE1 55 

3208 18f2 4D 

3229 15E3 5g 

320 1SE4 aD 

3220 1SE5 aA 

3288 15E5 BA 

3218 1SET FF ~BYTE ETX TEXT STRING MUST END WITH 
2228 AN £ND OF TEXT CHARACTER. 
3238 15f8 5a RTS RETURN TO CALLER. 

3248 

3258 

326 

3278 

3283 


BRELEREKEEEEREEE ERASED SE ESHEELESS EDL SSSASE 
PRINT THE HEXDUMP TITLE TO SCREEN 


EFHREBRRALHHTHS FEBELAKSELEELEREEDSBRERSGRARSSER 
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3256 
3388 
3310 
3329 
3338 
3340 
3352 
4369 
337 

3368 
3230 
3480 
3418 
3420 
3433 
3449 
3458 
3450 
347@ 
3460 
3456 
3435 
3430 
3499 
3490 
3488 
3492 
3490 
3490 
2433 
3480 
3493 
3490 
3455 
3499 
3490 
3430 
3459 
3452 
3492 
3490 
3498 
3498 
350g 
2580 
2588 
3589 
3533 
3500 
253 
350g 
3589 
350g 
35a 
350g 
2550 
3568 
3519 


I5E9 
1SEC 
1SEF 
15-3 
LSF1 
LEF2 
1SF3 
iSFr 4 
LSFS 
15F6 
1SF7 
iSFS 
LSF 3 
iSFR 
iSF 8 
1SFC 
1SFD 
ISFE 
LSFF 
1506 
1601 
L602 
i693 
1604 
1E8S 
1B=351>) 
1697 
1698 
16689 
159A 
1582 
i6aC 
1690 
1BHE 
Le0F 
1614 
16i1 
1Gi2 
1613 
1614 
1615 


we we Wt we 4s ws wt we we UE we Mt ot we WO at Me 


FLAAHLHALKLAAAA SHAS ELAS HKALSLSSLSSRSSSELSSHARS 
LET USER SET STARTING ADDRESS AND 
END ADDRESS OF A BLOCK OF MEMORY: 


PHF FHRABELRFHFESKKHESSTRHHKKS SSHSSSSESEHRFESHKIBRAS 


2868814 SETADS JSR TYUT.ON SELECT SCREEN FOR OUTPUT 


2@E414 
TF 


JSR PRINT: PUT PROMPT ON SCREEN: 
~PYTE TEX 
-BYTE CR,LF.° SET STARTING ABDRESS ” 


~-BYTE “AND PRESS *Q".’ 


~-BYTE ETX 
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OQ wWtu) Ww Ww &) OD 
bw f) 
MN G2 ey 


nM Muon n 


gy 0) Ct 
rag) 


Wa w 
Nanna 
2WNrFeowaoa nm 


oon w 


nan 
AHO OBI DB oOVOowIAaAs 


0) 1) WG W 
eC 


a 
n 
© ¢ 
Q 


371G 
vr2o 
3734 
3r4a 
3740 


34 


3740 
3748) 
27448 
3744 
3749 
3746 
QTE 
37 4h 
3748 
37412 
374 
37448 
3749 
S7AD 
37448 
375o 
37S8 
2756 
3750 
3758 
37S 
3rS 
3750 
ar5B 
27353 
37S8 
3r5se 
3759 
3758 
3758 
37508 
3778 
37393 


1616 


161¢ 
1B61F 
1622 
1525 
L624 
lecs 
1625 
162¢ 
{6<28 
1629 
182A 
1e25 
Lecc 
16223 
LE2E 
lber 
Lbs 
lest 
16532 
1E33 


1624 


ZuBri2 


we we we 2A BP we es 4H OF wa wh we we 


JSR VISMON CALL VISIBLE MONITOR, SO 
USER CAN SELECT START ADSRESS 
OF THE BLOCK. 


JSR SFIHERE SET START ADDRESS (SAI=SELECT 


HAVING SET THE START ADDRESS, 
sA, LET’ S SET THE END ADDRESS, 
EA. 


284814 SET.EA ISR TVT.CN SELECT SCREEN FOR OUTPUT. 


Z20E414 
7F 
AB 
BA 
53 
45 
54 
2a 
45 
4E 
44 
20 
41 
44 
44 
52 
45 
53 
Sg 
20 
41 


se 4E 


44 
2a 
50 


52 


45 
53 
SS 
26 
22 
Si 
22 
2 


FF 


260712 
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JS& PRINT: PUT PROMPT ON SCREEN: 
~BYTE TEX 
~BYTE CR,LF,’ SET END ADDRESS ” 


-BYTE ’ AND PRESS °Q’.’ ,ETX 


JSR VISMON LET USER SELECT END ADDRESS. 


ON 
£2) 
YM 


W 6) uo) W OD 


40sa 
4102 
4118 
4129 
4129 
4149 
4149 
4145 
4149 
4149 
4140 
414g 
414g 
4149 
4149 
4149 
4140 
4140 
4149 
4152 
4159 
4159 
4150 
4156 
4150 
4156 
415@ 
4158 


1647 
16465 
L64B 
164E 
iGS@ 


1652 
1655 
1655 


165A 
LE5D 
LSE 
1663 
1E&6 


1LEE7 
165A 
L6ER 
1672 
iBfS 


1674 


1677 
LETS 
167S 
L67fA 
L675 
1s7c 
167D 
167E 
LETF 
16582 
1661 
1Ge2 
16e5 
1684 
1655 
L656 
1&87 
1638 
16393 
LESA 
i685 
168C 
L6cSB 
16SE£ 


38 
ADGS12 
CDS3SL5 
S324 
DES 


ADBS12 
CDS2is 
SOLAR 


SEC 
LDA 
Chip 
BCC 
BNE 


LBA 
CrP 
BCC 


% 
ADV612 EAHERE LOA 


BDS5S15 
ADES12 
605415 
5B 


we we es 8 


STA 
LDA 
STA 
RTS 


ADGS12 SAHERE LOA 


eBRS315 
ADBSL2 
eD5215 
59 


STA 
LDA 
STA 
RTS 


b ] 
2<GE414 TOOLOW JSR 


7F 
BD 
aA 
GA 
aA 
20 
45 
S2 
52 
AF 
52 
21 
21 


el 


SELECT+1 


SAt+L 
TOOLOW 
EAHERE 


SELECT 
SA 
TOOLOW 


SELECT+L 


EA+L 
SELECT 
EA 


SELECT+1L 


SA+1 
SELECT 
SA 


PRINT: 


-BYTE TEA 
»~BYTE CR.LUF,LF,LF,” ERROR!!! 7 


~BYTE ’ END ABDGRESS LESS THAN START ADDRESS.’ 


IF USER TRIED TO SET AN 
ADDRESS LESS THAN THE 
STARTING ADDRESS. 

MAKE USER DO IT OVER. 

IF SELECTSSA, SET EAR=SELECT. 
THAT WILL MAKE EASA, 


SET EA=SELECT. 


RETURN WITH ER SET BY CALLER 
CJSR ERHERE); EA SET BY USER 
(JSR SET.EA); OR SA AND EA 
SET BY USER CJSR SETADS3. 


SET SA=SELECT. 


RETURN WITH SA=SELECT. 


SINCE USER SET ENDING 
ADDRESS TOO LOW, PUT A 
PROMPT ON THE SCREEN: 


267 


ALSG 
4159 
4155 
4158 
4150 
4159 
4150 
4156 
4159 
4159 
4159 
4150 
4150 
4159 
4150 
4iS8 
4159 
4159 
4158 
41a 
4153 
4155 
4152 
4159 
4150 
4150 
415i 

4159 
4159 
4163 
4189 
4186 
4169 
4169 
4185 
41629 
4168 
4189 
4178 
4180 
4199 


NOmonm thi mm 
vYoomwoww 
MN kW NF 9 4 


1faSs 
163A 
LESB 
issc 
69a 
16S 
L53F 
LERE 
LeAl 
1582 
LBAS 
LBRS 
LBARS 
i5vAS 
167 
LEAS 
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we ws 8 we we Ab OF wt Ot ne wt ee we wR lt 


~-BYTE *° WHICH IS * ,ETX 


JSR PR.SA PRINT START ADDRESS. 


JtHIP SET.ER AND LET THE USER SET A 
MEW £ND AUDRESS. 


HELEER GHEE LEED KERHD EEA GLEBE SHEEKEBAL ES AESERE 
PRINT START ADDRESS 


GHEE TBE LAGE PERE HEREDESEBREHSEEHRREREERHEBSESS 


4378 3 

4382 3 

433 BR AS24 PR.SA LDA #° $ PRINT A DOLLAR SIGN, TO 
BB 244014 JSR PR.CHR INDICATE HEXADECIMAL. 


+ 
th. 
_ 
AS 
aa 


44ehl 16CH ADSsSiS LDR SASL PRINT HIGH BYTE OF START 
4439 16CS 206314 JSR PR.BYT ADLRESS. : 


AN 
Ds 
afs 
ne) 


4450 i6C6 ADS2IS LUR SA PRINT LOW BYTE OF START 
4459 1609 295314 JSR FR.BYT 
447G 16CC 62 RTS RETURN TO CALLER. 


AN 
ae 
(Q) 
Go 
we we wh 


ay 
U1 
IN) 
aS 
wa ue 


d 
wn 
. hb ; 
a) 
we os wet 


ERBEEEEEEERERREEEEEEBDERBREEABERDAEBESHREABDSH 


PRINT END ADDRESS 


ab 
a 
Rt ~ 
@ 
we ye met 


HERE BEEERARED ERE EBEDEEPEDBHEDDED ERE RGBEEREEEE 


a 
iN} 
f-4 
we BO ws ws WA ae 


4650 16CD AS24 PR.EA LDA #’S PRINT A DOLLAR SIGN, TO 
4564) 16CF 244814 JSR PR.CHR INDICATE HEXADECIMAL. 
4670 1602 ADSSiS LDA EAL PRINT HIGH BYTE OF END 
4669 1605 269314 JSR PR.BYT ADRESS. 

46924 16B8 ADS41iS LBA EA FRINT LOW BYTE OF END 
4723 16DB 268314 JSR FPR.BYT ADDRESS. 

4718 iSDE 5a RTS RETURN TO CALLER. 

4725 
4730 
47463 
4753 
4760 
4778 
47386 
4798 
sen 
4816 
4820 
4830 
49434 
4856 
436a 
43768 
4380 
4396 
495990 
49516 3 

4974 LEDF 2ZOBB16 RANGE JSR PR.SA PRINT STARTING ADDRESS. 
4339 1662 AIZD LDA #’ - PRINT A HYFHEN, 

45944 1664 204014 JSR PR. CHR 


FSREEEERRHKERDPDESEEELESEEEHEEBEHRSKHERAD HER ESHEE 


FRINT RANGE OF ADDRESSES 


HEREEEMEEBDEE EERE HER EEELEEEEHEEEHKELEBAGREEEBEEES 


et «we 48 we we wk wt ls wt le ak WK we 8 Ut we 8 
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q® Gi 


madam iy 
© 


Qa Vr ayuanuonnm ip wp ww ww 


NWI hw Whe 


gQgyavaaqagseviqoa 


Ls 


nHunanaw4agucm wtb bp ts bt 


in! 


og 
Sise 
5119 
51208 
S136 
S149 
S15a 
Sita 
Sirs 
SLB 
S196 
5134 
Sise 
Siss 
S130 
S136 
S138 
S159 
$196 
5134 
$189 
Scene 
S215 
522A 
S239 
5246 
S24 
5248 
5256 
S254 
$254 
$2533 
5253 
S258 
5254 
5259 
9256 
$254 
5254 
5258 
52568 
9256 
5256 
5256 


178r 
L7Tee 
17rag 

7Gr 
1703 
17a 
17D 
I7SE 
1L7@r 
1lvia 
Wilt 
17l2 
171s 
LIT14 
1ViS 
17i6 


we DOP we Wh we 28 we we 28 we OY 8 


2 ee e868 88 we WE we 


JSR FR.EA PRINT END ADGRESS. 
RTS RETURN TO CALLER. 


CEEEEESESSEEEEEEEEELKEEEEEKREESELKEEEREEKEREES 


PRINT HEADER 


RESKESEFASEEASAEBEREKRSAFEERSESEEGSEFESSAEKAEEAFSS 


ZBE4L4 HEADER JSR PRINT: 


28 
FF 
260F 16 
207214 
206414 
7F 
aA 
GA 
28 
20 
2g 
26 
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-BYTE TEA 
-BYTE CR,LF,LF,’ DUMPING ” 


-BYTE ETX 
JSR RANGE 
JSR CR.LF 
SSR PRINT: 
~BYTE TEA,LF,LF 


~-BYTE ” @123 45 6 7 * 


5255 
5254 
£258 
5259 
5254 
5254 
5258 
eu 
5259 
5250 
5258 
S250 
52560 
$256 
5254 
5254 
6255 
52614 
S25 
52608 
S260 
5264 


§259 


5273 
S270 
527 
5254 
$2354 


SO gon mm 7b Ww 


Baas Gano rdoert 


fh) py 


aomnnWnnwnuonu 


db bh bh wid w ow OW vO) 


ey) 


1717 
17is 
17193 
171A 
171B 
L71c 
1710 
I7T1E 
L7iF 
1729 
172i 
1722 
1725 
ly24 
1725 
1726 
1727 
1725 
1723 
172A 
1725 
172C 
L720 
I72Ze 
Lf2Fr 
i7su 


not nan 


NaponN oc} 


20 
33 
20 
23 
34 
28 
20 
35 
20 
28 
38 
20 
2B 
37 
20 
2a 
38 
2u 
20 
33 
28 
22 
41 
20 
20 
42 
29 
20 
43 
28 
2g 
44 
2a 
2a 
45 
20 
20 
46 
rays 
aA 
GA 
FF 
68 


~-BYTE “38 39 A B C OD €E F’ 


-BYTE CR,LF,LF,ETX 


RTS 


EHKEAKAEHEAKSE REVERE KASEY EE BEEHEEEELEG EEE SAEDE 
DUMP ONE LINE TO FRINTER 


KEK KEKRER EKAADABEREREERDKEEEERFEEAEBREBALSERDEBRE 
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5446 
545a 
S460 
5478 
54380 
5498 
S52aea 
SS1ia 
5520 
SS3g 
S544 
555¢ 
SS6a 
SS7G 
556g 
5598 
S6aa 
5518 
5628 
5620 
SS4G 
S65a 
SEEG 
S67a 
5s3a 
S698 
S7Ga 
S713 
S726 
57398 
S742 
5750 
S76G 
S77 
S78a 
5799 
Seng 
5310 
S828 
59328 
584g 
5852 
5862 
ss7a 
588a 
5890 
S3Bg 
S91B 
5928 
59398 
534 
sasg 
S96 
5970 
s9aa 
599a 
Syayay7) 
6612 


1742 
LT4S 
1748 
1743 
1748 


LV4eE 
LV 4F 
17Si1 
1754 
L¢?S?7 
1753 


L75C 


L7SF 


1751 
L763 
1756 
17639 
L17séc 


176E 
‘wee 
1774 


L7?? 


L773 
irrc 
L77E 


175a 
1782 


267214 PRLINE JSR 


ADGS12Z 
48 
2SOF 
SOSE615 


58 
2oF 0 
SsDoasi2 
2GA11S 
AZO3S 
269614 


ADSS15 


FGeD 


AZOS 
289614 
240D1i3 
CES615 
DOF Ss 


SJ 
2B9A15 COL.oK 


207014 
26es17 


3689 


ADGSi2 NOT.EAR 


29@F 
C368 


NGEC 
62 
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mM 


we SP ue we 8 we WE ee ee ee ee ee ee KX 


we 


5 
3 
LO 


Or 


- 
—| 


LDA 
PHA 
AND 
STA 


PLA 
AND 
STA 
JSR 
LDX 
JSR 


LDA 


BEQ 


LDA 
JSR 
JSR 
DEC 
BNE 


JSR 
JSR 
JOR 


BHI 


LOA 
AND 
CMP 


BNE 
RTS 


CR. LE 
SELECT 


¥S6F 
COLUMN 


$F OQ 
SELECT 
PR.ADR 
3 
SPACES 


COLUMN 


COL. OK 


#3 
SPACES 
INC.SL 
COLUMN 
LOOP 


SUMPSL 
SPACE 
NEXTSL 


EXIT 


SELECT 
$HOF 
#3 


COL.OK 


DETERMINE STARTING COLUMN. 
FOR THIS DUMP. 


NOW COLUMN HOLDS NUMBER OF 
HEX COLUMN IN WHICH WE DUMP 
THE FIRST BYTE. 

SET SELECT=BEGINNING OF A 
HEX LINE. 


PRINT CINE’ S START ADGRESS. 
SPACE 3 TIMES--TO THE 
FIRST HEX COLUMN. 


nO WE DUMP FROM THE FIRST 
HEX COLUMN? 
IF SO, WERE AT THE CORRECT 
COLUIIN NOM. 


IF NOT, SPACE 3 TIMES FOR 
EACH BYTE NOT DUPMPED. 


DUMP SELECTED BYTE. 
SPACE ONCE. 
SELECT NEXT BYTE 


MINUS MEANS WE’ VE DUMPED 
THROUGH TO THE END ADDRESS. 


DUMPED ENTIRE LINE? 

C4LSB OF SELECT=07) 

IF 50, WE’ VE BUMPED THE 
ENTIRE LINE. IF NOT, 

SELECT NEXT BYTE AND DUMP IT. 
RETURN MINUS IF EAR DUMPED; 
RETURN PLUS IF EA NOT DUPFED. 


EDKREDEERAEABEEEBHBE SHEED EEA EREBEBERERS SEBS 


6628 
6930 
69048 
6653 
6466 
6470 
60SG 
buss 
6196 
5110 
612 
61340 
6146 
6150 
6isG 
617G 
518d 
B19%8 
6209 
6219 
6228 
6230 
6249 
6250 
6260 
6278 
$286 
6254 
6506 
6319 
6320 
6339 
6348 
63598 
S354 
6376 
6389 
62908 
6494 
6410 
6420 
643g 
6440 
6458 
6468 
64708 
5430 
6490 
6582 


i7ve3 
1784 
lfsS?¢ 
173A 
178Cc 


17TBE 
179F 
1752 
L7ss 


17S? 


173A 
L173C 


L73U 
L7SF 


17AB 
L7AS 
L?7AS 
ivAg 
L7AC 


SELECT NEXT BYTE CIF < END ADDRESS) 


BHEKEREEREEEREREBLELELESRESEERKEHEDEAREDKEDAS 


38 NEXTSL SEC 
RADVELZ LDA SELECT+1L HIGH BYTE OF SELECT LESS 
CDSS1S CHP EAL THAN HIGH BYTE OF EA? 
362B BCC SL.OK IF SO, SELECT<END ADDRESS. 
DEAF BNE NO. INC IF SELECTOEAR, DON’ T 
; INCREMENT SELECT. 
3 
33 SEC SELECT IS IN SAME PASE AS EA. 
ALESI2 LDA SELECT 
CD541S CMP ER 
BESS BCS NO. INC 
3 
23GG13 SL.OK JSR INC.SL SINCE SELECT <= EA, WE MAY 
3 INCREMENT SELECT. 
3 
ASBS LDA #9 SET “INCREMENTED” RETURN 
=3.7) RTS CODE AND RETURN. 
$ 
ASFF NO.INC LDA #9FF SET “NO INCREMENT" RETURN 
A) RTS CODE AND RETURN. 


ee V8 Bt wes U8 we FS Bh we 84 ws Ut leet 


ADS215 GOTOSA LDA SA 


SBgSiz2 
ADS3iS 
SDE612 
6G 


FERFEEEEERBLSEALKHKPFDERSEAAEHESESERHEE GEARS 


SELECT START RABDRESS 


PESLEBALERALEREDLE LE SHEELHSSREBLFKEASSERSFLESHEAS 


SET SELECT=SA. 

STA SELECT 

LGA SATL 

STA SELECT+1 

RTS RETURN WPSELECT=5SA. 
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Appendix Cé: 


Table-Driven Disassembler (Top 
Level and Utility Subroutines) 


ee «6 Oo we an we 


en ee) ee ) eS ee | ey ee oY 


eo ©t we 485 ws we wh ws ek we lO Ot lt lek le lO UF lw 


APPENDIX C6: ASSEMBLER LISTING OF 
TABLE-DRIVEN DISASSEMBLER 


TOP-LEVEL AND UTILITY SUBROUTINES 


SEE CHAPTER 3S OF REYOND GAMES: SYSTEM 


SOFTWARE FOR YOUR 6582 PERSONAL COMPUTER 


BY KEN SKIER 


BERBER EEBEHABEEEEBREREBBESEBGEED EET KEDEERERREEES 


CONSTANTS 


EERE HERDER ERRHEBEREEEKEBKS FEEDERS HER EHE EEE 


CR = $uB CARRIAGE RETURN. 
LF = $9A LINE FEED. 
TEX = B7F THIS CHARACTER MUST START 


ANY MESSAGE. 


ETA = $FF THIS CHARACTER MUST END 
ANY MESSAGE. 


ERR EKB HHH HE HK EHBBRH BKK EE ERAS HABE EBSESAHHKHA 
EXTERNAL ADDRESSES 


HEE EKER ER ERE HEERERSEERESEEESERKEREBLBREEEERSES 
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5393 
£04 
b1H 
6265 
639 
642 
658 
668 
676 
668 
6S4 
78B 
13 
(28 
720 
748 
756 
76 
rae 
780 
79g 
BHA 
619 
B20 
633 
6435 
659 
BED 
87a 
BEB 
830 
SHB 
918 
925 
38 
946 
356 
S6& 
378 
a86 
3399 
1665 
i@1B 
1825 
18368 
1943 
1856 
16598 
1976 
GBA 
1634 
11493 
1iia 
1126 
113508 
1148 
1156 
1160 
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| com 
h 
S 
@ 
K 


bbe be pw be 


WuUN NN 


LSa@= 


1552= 
1554= 
153A= 
JSAL= 
lsbr= 
LSES= 
1753= 
L/7AD= 


we we ws ws we 


le ee Se ee ee ee ee oe 


STARTING PAGE OF VISIBLE 
MONITOR CODE. 
SELECT=UMPAGE+TS 

VISMON=UMPAGE+7 

GET.SL=VMFAGE+SS4 

INC. SL=UMPAGE+$ 16D 

DEC. SL=VPPAGE+S$11A 


VUMPAGE=41200 


PRPAGE=314049 STARTING PAGE OF PRINT 
UTILITIES. 
TUT. ON=PRPAGE+S8 

TVTOF F=PRPAGE+SGE 

PR.ON =FPRPAGE+914 
PR.OFF=PRPAGE+S1A 

PR. CHR=PRPAGE+349 

CR.LF =PRPAGE+$72 

SPACE =PRPAGE+S70D 
SPACES=PRPAGE+$35 

PR. BYT=PRPAGE+S83 

PRINT: =PRFAGE+SE4 
PUSHSL=PRPAGET$112 

POP .SL=PRPAGETS 125 


ADDRESS OF PAGE IN WHICH 
HESADUNP CODE STARTS. 


HEX .FG=$ 1500 


SA=HEXK.PG+S52 
FA=SAt+Z 
DUMPSL=HEX. PG+$SA 
PR.ADR=HEX.PG+SAL 
RANGE=HEX. PG+310F 
SETADS=HEX. PGt+SES 
NEXTSL=HEX.PG+$2383 
GOTOSA=HEX. PG+S2AG 


DISASSEMBLER TABLES: 


DSFAGE=8 19409 STARTING PAGE OF BISASSEMBLER 
SUBS =DSPAGE+$21B 
MHAMES=BSPAGE+$256 
MCODES=DSPAGE+$324 
MODES =DSPAGE+S$400 


1179 H 

LIES ’ 

1ic8 5 EDDESEHKRA BAAR EDEEBEDEREHBEEREEBEHEEEREBESEDRBBES 
{20a 3 

1214 > VARIABLES 

1224 H 

4,238 $  FHREBFEHRHSKEBSHFHHAHAKSSHADSEERKEKEBERSEAHPESESEINS 
1245 ; 
j255 3 

Jeeo 3 

1278 19648 *=DSFAGE 

{228 3 

123i4 3 

1388 > 

1514 3 

1325 3 

1238 1960 85 DISLNS .BYTE 5S NUMBER OF LINES TO BE 

1349 3 DISASSEMBLED BY TV.DIS. 
L258 > 

1360 1961 @& LINUM .BYTE @ DATA CELL: USED BY TV.DIS. 
137A > 

128G 194Z2 86 LETTER .BYTE @ CCUNTS LETTERS PRINTED IN 
339 ; A MNEMONIC. USED BY PNEMON. 
145M 3 

14160 i943 Be TEMP.* .BYTE @ DATA CELL USED BY MNEMON, 
142h ; 

1435 1964 G5eo0 SUBPTR .HORD @ POINTER TO A SUBROUTINE. 
1446 ry SET, USED BY MODE.A 

1450 3 

1466 1905 05 OPBYTS .BYTE @ DATA CELL: USED BY FINISH. 
1472 H 

L460) 1967 29 OPCHRS .BYTE @ DATA CELL: USED BY FINISH. 
1499 3 

1544] 1998 138 ADRCOL .BYTze 16 STARTING COLUMN FOR ADDRESS 
151% ; FIELD. OSI C-IP OWNERS: 
i528) : FOR NARROW FORMAT, SET 
1524 ; ADRCOL=$8B. SEE NOTES 
1540 3 IN LISTING FOR ADDRESS MODE 
ISSA 3 SUBROUTINES. ) 

1563 ; 

1s7g ; 

152a3 ; 

1556 5 

1659 7 

1614 3 

1628 ; 

1626 H 

16-19 § BLE ERDDBEBAERHEEEEE EEE EERE EHSERERDEDEERSSESERES 
16S¢ . 

1666 ; TU-DISASSEMBLER 

1S7a . 

1660 5 SHEE AEE BEDKEREEMERDEREEEABEERAEDEDSEEBADFESDES 
13 . 

17rsa 5 

17 id ; 

1veu 3 

1733 ; 

l7-lg 1969 2986814 TU.DIS JSR TYUT.ON SELECT SCREEN FOR OUTPUT. 
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1¢59 
1fou 
177G 
1760 
1739 
1699 
1818 
1824 
18328 
1840 
1856 
1864 
1876 
1888 
isga 
198 
1916 
1926 
1938 
1546 
1358 
1959 
1978 
138d 
1998 
20S0 
2619 
2626 
2938 


2548 


2A5B 
2058 
247o 
2438 
2436 
21ag 
2166 
2106 
2119 
2116 
2110 
2118 
2119 
21108 
2116 
2150 
2116 
2116 
2118 
2118 
2110 
21iiB 
2116 
2110 
2116 
2110 
21193 
2119 


194C 
136F 


1912 
1914 
1917 
1S1A 


1S1D 
1929 
1323 
1525 


1926 
19323 
132C 
LS2F 
1930 
19351 
19532 
13933 
1334 
1935 
1336 
19337 
1938 
41339 
193A 
1S53B 
153C 
1933 
19S3= 
1S3F 
1948 
1341 
1542 
19343 
1944 
1545 


ANDBB19 
SUG119 


we 


ASFF 

o05415 
BYS515 
2Or214 


LDA 
STA 


LDA 
STA 
STA 
JSR 


2670i3 TYLOOP JSR 


CE6119 
DSFS 
=) 2) 


a woe wF we we We wet wR Ne SP ls PR we MF we OH A a Ow 


DEC 
BNE 
RTS 


DISLNS 
LINUM 


BSLINE 
LINUM 
TYVLOGOP 


INITIALIZE LINE COUNTER WITH 
+t OF LINES TO DISASSEMBLE. 


SET END AUVDRESS TO SFFFF, 
SO NEXTSL WILL ALWAYS 
INCREMENT SELECT FOINTER. 
ADVANCE TO A Neb LINE. 


DISASSEMBLE ONE LINE. 
DONE LAST LINE YET? 
IF NOT, DBO NEXT ONE. 
IF SO, RETURN. 


EARHEREEHKEEEEELEKEREBHE HEH PEDAEKSEESESESPREBHSBED 


PRINTING DISASSEMBLER 


KELP EKEREEKESEHEEFEKAEEESERBEKEDSEHKELERSSSE ERK 


$ 
2G1Ai4 PR.BIS JSR PR.OFF 


208814 
262414 
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JSR 
JSR 


TUT .ON 
PRINT: 


BE-SELECT PRINTER 
SELECT SCREEN FOR OUTPUT. 
DISPLAY TITLE. 


~-BYTE TEX,CR,LF 


»BYTE ” 


PRINTING DISASSEMBLER.’ 


1346 
1947 
1348 
19493 
194A 
1945 
194C 


1946 
1934E 
1S4F 


19508 


1953 
135565 
iss3g 
1SSA 
1958 
135C 
195D 
1S5E 
iSSFr 
1354 
1361 
1962 
i953 
1554 
1965 
1S65 
1S57 
1369 
1969 
1S5A 
1968 


1S5E 
1371 


1974 
1gr7 


i973 


1s7c 


2ZQES1S 


201414 
25E414 


200F 15 
2GRE17 
207214 

267D19 PRLOOP 
Lars 


261A14 


£8 


~-BYTE CR,LF,ETX 


JSR SETADS 


JSR PR.ON 
JSR PRINT: 


LET USER SET START, END 
ADDRESSES OF MEMORY TO BE 
DISASSEMBLED. 

SELECT PRINTER FOR OUTPUT. 


-BYTE TEX,CR,LF 


-BYTE ’ DISASSEMBLING ” 


~-BYTE ETX 
JSR RANGE 


JSR SOTOSA 
JSR CR.LF 


JSR DSLINE 
BPL PRLOOP 


JSR PR.OFF 


RTS 


PRINT RANGE OF MEMORY TO 
BE DISASSEMBLED. 
SET SELECT=START OF BLOCK. 


ADVANCE TO A NED LINE. 

DISASSEMBLE ONE LINE. 

IF IT WASN’ T THE LAST LINE, 
ISASSEMBLE THE NEXT ONE. 

BDE-SELECT PRINTER FOR QUTPUT. 


RETURN TO CALLER. 
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IT) 
ty mg «. 


NNN N 
JOO AG Oeaanan@rpw8d 2 


N 
= 


ul +t G2 AJR | 


a 


~Jo om 


NM fu NN AL NON A) 
Jel no~ 


~ 
i 
i! 


2854 
2654 
2678 
2594 
2856 


ST 


Minoo ww 
' 


hs 
Qa conangnaynr: 


WOO WNN WAIN 


ics SS) 
UN So oN MN 


48 
293219 


267D14 
63 
2GAF 15 


24B1iA 


RA 


1335C BOSCIB 
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ewe we ws at we we C8 44 we 


«a “68 ye 20 2¢ 2S “Ee 


3 
« 
% 
s 
9 
. 
3 
s 
3 
rs 
9 
s 
3 
es 
9 
s 
+ ] 
* 
3 
s 
t | 
° 
s 
° 
3 
. 
3 


MINE 


HEE KREBKREBEBEBES EESBFAREKAGPEBKP HERES EKEPASESA 


DISASSEMBLE ONE LINE. 


EREABFEEEBEBRDDBSBERERRBHSE EBB AE BH EEREEEHBERHS 


PHA 
JSR. 


JSR 
PLA 
* ISR 


JSR 


3 
269412 DSLINE JSR GET.SL 


MNEMON 


SPACE 


OPERNG 


FINISH 


NEXTSL 


GET CURRENTLY-SELECTED BYTE. 
SAVE IT OW STACK. 

PRINT MNEMONTC REPRESENTED 
BY THAT OPCODE. 

SPACE ONCE. 

RESTORE OPCODE. 

PRINT OPERAND REQUIRED BY 
THAT OFPCGDE. 

FINISH THE LINE BY PRINTING 
FIELDS 3-6. FINISH LEAVES 
SELECT FOINTING TO LAST 
BYTE OF INSTRUCTION. 

SELECT NEXT BYTE, IF 
SELECT<EA. 

RETURN W/RETURNCODE FROM 
NEXTSL. SELECT PGINTS TO 
NEXT OPCODE, OR SELECT=EA. 


KEKEGERREKBHEAAREBHEEFBERSD SEBS EAD EREREDABED HDD 


PRINT MNEMONIC 


SERERFSEBHRKKBEEKDEBREEANEHEREBREBBEES ESAS REBHS 


mON LDA 
STX 
TAS 


LUA 


TAX 


MNLOOP LIA 


#3 


LETTER 


J 


vm 


MCODES, xX 


C 


PINFAVIES , x 


WE’ LL PRINT THREE LETTERS. 


PREPARE TO USE OPCODE AS AN 
INDEX. 


LOOK UP MNEMONIC CODE FOR 
THAT OPCODE. WwoorES I5 
TABLE OF MKEMOMIC CODES. 


PREPARE TO USE THAT MHEMONIC 
CObE AS AN INDEX. 
GET A MNEPORIC CHARACTER, 


3646 
3856 
3260 
3870 
3650 
39358 
3120 
3114 
3126 
3136 
31408 
31598 
3168 
Si?rv 
2180 
31936 
3208 
3218 
3226 
3239 
3246 
32508 
3266 
3278 
3286 
3298 
3368 
33193 
3328 
3330 
3349 
3350 
3369 
3378 
3330 
2398 
3404 
3416 
2426 
3433 
3446 
3458 
3468 
3478 
3488 
3498 
3500 
3s5S1@ 
3528 
3538 
3548 
35594 
3568 
3570 
3588 
3596 
3660 
3616 


{S9F 


139AZ 
1SAS 
1SAS 
13AS 
ISAC 
ISAE 


LSAF 


8E@319 


204014 
AEGIS 
ES 
CES219 
D&ceE 
64 


AR 


1986 BDOBLD 


1SB3 AA 


1SB4 
15B7 


26B619 
66 


8) 


5 
’ 
3 
3 
3 
3 
$ 
3 
3 
’ 
3 
’ 
P 


we 20 06 Be we 42 we ws wo ws VS O22 we we we lee 


STX TErP.% 


« 


JSR PR.CHR 
LDX TEMP.%* 
IN* 
DEC LETTER 
BNE MNLOOP 
RTS 


CMNAMES IS A LIST OF 
MNEMONIC NAMES. 3 


SAVE X-REGISTER. SINCE 
PRINTING MAY CHANGE X. 
PRINT THE MNEMGNIC CHARACTER. 
RESTORE X, 


ADJUST INDEX FOR NEXT LETTER, 
'PRINTER 3 LETTERS YET? 


IF NOT, PRINT NEXT ONE. 
IF SO, RETURN TO CALLER. 


FRERHEALRERALKBAKEKERHKEEREEHDRSEHFRESERESGHBSE BBE 


PRINT OPERAND 


HEARHEKKAKERSBERHAEDKEKAEDHBADHKHSAFASEABEREDFHEAD 


ERND TAX 
LDA MODES,X 


TAX 


JSR MODE.X 
RTS 


LOOK UP ADDRESSING MODE 
CODE FOR THIS OPCODE. 


X NOW INDICATES ADDRESSING 
MODE. 


HANDLE THAT ADDRESSING MODE. 
RETURN TO CALLER. 


BHRELREBDABAREEKREKERERSEBERSE BARGES HEHSHABHESEASE 


HANDLE ADDRESSING MODE “A” 


BEEREEEFABBEKREEEEREDERERRRSSESESBEESBREBRESRER 
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2626 
3638 


s wa 


$ 
S644 1938 BOIBIB MODE.€ LBA SUBS,% GET LOW BYTE OF Xth POINTER 
36554 iSBB 8D9413 STA SUBPTR IN TABLE OF SUBROUTINE 
36S ; POINTERS. 
S67@ 19SBE ES INX ADJUST INDEX FOR NEXT BYTE. 
3E86 I95F BDIS18 {DA SUBS,X GET HIGH BYTE CF POINTER. 
3530 iSC2 8DG@S519 STA SUBPTR+1 
3740 19C5 6Ca419 JMF CSUBPTR} JUNP TO SUBROUTINE SPECIFIED 
271i ’ BY SUBROUTINE POINTER. 
3728 ; THAT SUBROUTINE WIL? RETURN 
3739 ; TO THE CALLER OF MODE.X, 
3746 ; NGT TO MODE.X ITSELF. 
3754 ; 
3780 5 
3778 5 
3769 ; 
37393 3 
25853 5 
3318 3 
382A 3 
3836 3 
3646 $ 
3850 5S ERDHREHKEHEED ERB BEEEERPEREEEEEDEHDDEDESESEBERS 
3368 ; 
3878 Hi DISASSEMBLER UTILITIES 
3333 ; 
38368 $ REDEREAHEEAKHB PES EBERESELERSHESESEREDAFRSSES 
S980 5 
3916 3 
3920 3 
3935 ’ 
3944 ; 
23954 r} PRINT ONE-BYTE OPERAND 
3963 ; 
3372 ; 
3386 5 
3994 15C9 268D13 ONEBYT JSR INC.SL ADVANCE TO BYTE FOLLOWING 
4606 ; OPCODE. 
4416 19SCB 289A15 Jsk DUMPSL DUP THAT BYTE. 
4026 ISCE 64 RTS RETURN TO CALLER. 
4436 $ 
43468 $ 
4850 ; 
4205 ; 
4274 ; 
429568 ; PRINT TNO-BYTE OPERAND: 
4096 ; 
4160 ; 
41165 4 
4126 19CF 2@0D13 THORYT JSR INC.SL ADVANCE TQ FIRST BYTE OF 
413568 ; OFERAND. 
4140 19D2 295412 JSR GET.SL {CAD THAT BYTE INTO ACC. 
4158 1905S 48 PHA SAVE IT. 
$16@ 1906 2o0D13 JSR INC.SL ADVANCE TO 2ND BYTE OF 
417 ; OPERAND. 
4180 1909 ZB9AiS JSR SUMPSL DUMP IT. 
4190 19DC 68 PLA RESTORE FIRST BYTE TO ACC. 
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4280 
4216 
4226 
4230 
4246 
4250 
4260 
4270 
42350 
42995 
4308 
4319 
4320 
4336 
4340 
43568 
4366 
4376 
4280 
4396 
4402 
4410 
4426 
44340 
4440 
4456 
4460 
4476 
4486 
4432 
4553 
4516 
4526 
4532 
4546 
4555 
4564 
4570 
45864 
4598 
4603 
4610 
4620 
4638 
4646 
4650 
4660 
4576 
4683 
46396 
4706 
4718 
4729 
4730 
4740 
4750 
4754 
4772 


1gDD 


298314 


1SEG 6G 


1SEL 


A328 L 


1SES Dbe2 


1ISES AIZS R 


LSE? 
ASEA 


LOcB 
LSED 
15F@ 
19F2 
LSFS 


19°F 6 
iSFs 
LSFB 
iSFD 
LAGG 


204814 S 
659 


AS2C a“ 
244814 
RAI5S 
204014 
66 


AS2ZC Y 
204014 
AI5SS 
204014 
=) 24) 


+ "Tl we oe” 


“J wt ws we we ub we we we at 


AREN 


AREN 


$ 
ENDIT 


bhi we we we we wt we 


NDEX 


Fi ee WA we as 


NDEX 


JSR PR.BYT BUMP IT. 
RTS RETURN TO CALLER. 


PRINT LEFT, RIGHT PARENTHESES 


LDA #’ C 
BNE SENDIT 


LDA #’ 3 


JSR PR.CHR 
RTS 


PRINT A COMMA AND AN °X”" 


LDA #’, 
JSR PR.CHR 
LDA #° Xx 
J5R PR.CHR PRINT AN “X". 
RTS 


PRINT A COMMA. 


PRINT A COMMA AND A “Y¥* 


LDA #° , 
JSR PR.CHR 
LDA #° ¥ 
JSR PR.CHR PRINT A “Y*,. 
RTS 


PRINT COMMA. 


KEKEEEBREREEEEDERYEBEDLBEXBEEEBRELGSEEREERBAEEDE EE BES 
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47 ag 
4736 

586 
43134 
4628 
44334 
4849 
4656 
4560 
4678 
4539 
43968 
45608 
4919 
4326 
4930 
4946 
4356 
43668 
4370 
498g 
4334 
5289 
5018 
S428 
5023 
BB4G 
5454 
SHEB 
2870 
5820 
SAg9G 
5190 
S119 
$120 
S134 
5148 
5158 
5156 
5173 
5iéa 
S158 
5200 
5214 
5226 
5234 
5244 
5256 
S26 
5276 
5206 
5296 

3A 
$314 
53268 
5338 
5348 
Set) 


LABL 
1Ad4 


LAST 


Laas 
LAGA 
LABD 
LABE 


1ALB 
LALL 
LAL? 
1AL3 
1A16 


LALS 
LAILB 
LALC 
LALD 
1A2G 
LAZS 
LAZE 
LAZSJ 
LAZC 


LAZF 
LA31 


1A34 


LA37 


at wma OS we we V8 oe WAR we wt MR gg Ot wt 


FINISH THE LINE 


BDB719 FINISH STA 


6E4619 


CA 


3696 


me we ws 


2B81iA13 LOOP.1 


CA 
18FA 


AS 

BS 

38 
ADASLY 
£364 


EDG719 
28 
AA 
243014 


20AL15 


[T] ws we we 


L.OK 


a5 


3 
267014 LOOP.2 


249R15 
246013 
CEGBI1S 


1GF2 
2461A13 


267214 FINEND 


60 
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STX 


DEX 


BMI 
JSR 
DEX 
BPL 


PHP 
CLD 
SEC 
LDA 
SBC 


SBC 
PLP 
TAX 
JSR 
JSR 
JSR 
JSR 
JSR 
DEC 


BPL 
JSR 


JSR 


RTS 


NOTE: 


OPCHRS 
OPBYTS 


SEL.OK 
Dec.St 


LOOP.1 


ADRCOL 
4 


OPCHRS 


SPACES 
PR.AOR 
SFACE 
DUMPSL 
INC .SL 
OPBYTS 


LOOP.2 
DEC.SL 


CR.LF 


BEBE BEHEKREEREKEELERPADEEEEKHEREEKREEEBRDDRS 


EVERY ADDRESSING MODE 
SUBROUTINE MUST END BY 
SETTING x= OF BYTES IN 
OPERAND, AND ACC=% OF 
CHARACTERS IN OPERAND. 


SAVE THE LENGTH OF THE 
OPERAND, IN CHARACTERS AND 
IN BYTES. & MEANS NO 
OPERAND. 


IF NECESSARY, BECREMENT THE 
SELECT POINTER SO IT POINTS 
TO THE OPCODE. 


NOW SELECT POINTS-TO OPCODE. 


SAVE CALLER’ S DECIMAL FLAG. 
PREPARE FOR BINARY ADDITION. 
SPACE OVER TO THE COLUMN 
FOR THE ALDRESS FIELB: 
OPERAND FIELD STARTED IN 
COLUMN 4... 

AND INCLUDES OPCHRS 
CHARRCTERS. 

RESTORE CALLER’ S DECIMAL FLAG 


PRINT ENOUGH SPACES TQ 
REACH ADDRESS COLUMN. 
PRINT ADDRESS OF OPCODE. 


SPACE ONCE. 

DUMP SELECTED BYTE. 

SELECT NEAT BYTE. 

DUMPED LAST BYTE IN 

INSTRUCT ION? 

IF NOT, DUMP NEXT BYTE. 

BACK UP SELECT, SO IT POINTS 
JO LAST BYTE IN OPERAND. 


IF SO, GO TO A NEW LINE: 
HAVING GISASSEMBLED ONE LINE. 


GO TO A NEW LINE. 
RETURN TO CALLER. 


Appendix C7: 


Table-Driven Disassembler 
(Addressing Mode Subroutines) 


APPENDIX C7: ASSEMBLER LISTING OF 
TRAELE-DRIVEN BDISASSEMBLER: 


RODRESSING MODE SUBROUTINES 


iT} 
o) 


SEE CHAPTER 3 OF BEYOND GAMES: SYSTEM 
SOF THARE FOR YOUR 65092 PERSONAL COMPUTER 


BY KEN SKIER 


| aamd 
“] 
So 
we we wb ws 6 8 we ee we we 


230 
248 
250 
260 


208 
318 
320 
a3 
349 
256 
386 
37a 
3280 
3513 
42 
41 
420 G2SD= CR = $aD CARRIAGE RETURN. 
439 
44g gaQA= LF = $9A LINE FEED. 
456 
460) 
470 Q97F= TEX = $7F THIS CHARACTER MUST START 
485 ANY MESSAGE. 

436 

SEG BOFF= ETX = SFF THIS CHARACTER MUST END 
Sia ANY MESSAGE. 

S2u 

520 

S4n 

S53 

SEB 

S72 


BESHAREHLERSEHAEEEKESHEARES FEELS EEE RGBEASEFEBRES 


CONSTANTS 


HEFFEBBEEELERELDSSEKRELAKPRSERKKEK KE EHREEEHSES HS 


we we we we we ee le we We we ee we VE we 


wae wt 
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19 
IS 


moa ot 


LB ; 
G19 5 
B23 ; 
B20 ; 
541) ; 
Bf 5 BRERERKAKHRAHABARKHEHRHSRKEEEREBREBEKESEEEBEAEBHALEG 
650 ; 
678 ; EXTERNAL ADDRESSES 
65a ; 
65H S$ SHKRHKHHERKEBASHESESESHESABEEEAEBEREESERERARERADD 
730 ; 
719 ; 
720 ; 
738 ; 
748 ; 
750 ; 
768 ; 
77 ; 
7ea ; 
792 ; 
Sau 3 
BIG 1209= VMPAGE=$1230 STARTING PAGE OF VISIBLE 
B20 MONITOR CODE. 
39 1205= SELECT=UMPAGE+S 
644 1297= VISMON=VMPAGE+7 
SS 1294= GET.SL=VIMPAGE+S94 
659 123D= INC. SL=VMPAGE+$12B 
87 1SiA= DEC. SL=VMPAGE+$11A 
SSR 
Sac 
939 L4G9= PRPAGE=$1488 STARTING PAGE OF PRINT 
919 UTILITIES. 
925 1440= PR.CHR=PRPAGE+S4@ 
S38 1472= CR.LF =PRPAGE+S%72 
S48 147D= SPACE =PRPAGE+#70 
S50 1495= SPACES=PRPAGE+S96 
S68 14e83= PR. BYT=PRPAGE+#83 
S74 1464= PRINT: =PRPAGETSE4 
98G 1512= PUSHSL=PRPAGE+S$112 
99 152B= POP.SL=PRPAGE+#12B 
1586 
1519 
1929 \S9g= HEX.PG=$1589 ADDRESS OF PAGE IN WHICH 
163 HEXDUMP CODE STARTS. 
1049 
1950 1SAl= PR. ADR=HEX.PG+SAL 
1868 1783= NEXTSL=HEX.PG+#283 
1a7A 
19Aa 
1998 1980= DSPAGE=$1959 START OF DISASSEMBLER CODE. 
11a 
11149 19CB= ONEBYT=DSPAGE+5CB 
1128 19CF= THOBYT=DSPAGE+SCF 
1136 1SE1= LPAREN=DSFAGE+#E L 
1144 i1S9ES= RPAREN=DSPAGE+SES 
1154 1S9EB= XINDEX=DSPAGE+$EB 
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1154 19F6= 


1170 
Lise 
1196 

2hi4 
1216 
1223 
1239 
1246 
1250 
1266 
1270 
1260 
1298 
1309 
1316 
1329 
1336 
1348 
1356 
13568 
1370 
1300 
1334 
1498 
14193 
1423 
1430 
1446 
1459 
1489 
1479 
1489 
1458 
1584 
1518 
15209 
1534 
1546 
1558 
1S58G 
1572 
1560 
15353 
162g 
1518 
1625 
1636 
1646 
1654 
1669 
167G 
1689 
1630 
1733 
i71a 
12a 
1738 


1AS 


1A49 
LAGS 
LAAS 
LAS? 


LA48 
1A4B 
LA4SE 
1AS6B 
LASS 


wep o8 wa 


os we wb 88 ws we we Ce we we 24 OE BS OE ws wh Ot 


YINDEX=DSPAGE+SF 6 


*#=DSPAGE+9140 ° 


2BCF 1S ABSLUT JSR 


AZIZ 
ASG4 
68 


3 

3 

3 

3 

3 

3 

r) 

3 
2U401A ABS. 
2@EB19 
AZH2 
ASS 
=A) 


% 


LDX 
LDA 
RTS 


HKHKAEDEKEEREKAKEEEREDEEEBEEHSEESESEKEREKRGEEREKRSES 


ADDRESSING MODE SUBROUTINES 


HEVESHEKRBAEHSEBESKEHHDBESEEHBARFERHEELESEEARGDS 


ABSOLUTE MODE 


TWOBYT PRINT A TWO-BYTE OPERAND. 
#2 OPERAND HRS TWO BYTES... 
+4 »»»AND FOUR CHARACTERS. 


RETURN TO CALLER. 


ABSOLUTE ,% MODE 


ABSLUT 

A INDEX PRINT A COMMA RAND AN “X*. 

#2 OPERAND HAS 2 PYTES... 

#6 -» AND SIX CHARACTERS. 
RETURN TO CALLER. 
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fm ete 
MQ UANN IN 


Fe ooAamM mA t 
DMDAIodoO Fy 


1629 


1899 
1sGa 
S14 
1926 
1938 
1948 
1959 
1960 
lsTse 
1983 
1932 
238 
ZO1A 
2ben 
2b38 
25465 
2655 
2655 
247 
22a 
2026 
2iGA 
2114 
2128 
2138 
214& 
Zi5G 
216GB 
217a 
2186 
21S 
2208 
2213 
2223 
223K 
e2e4g 
2254 
2268 
2276 
228A 
2236 
2320 
2310 


bh i 
>PD™D Tt Dh 
uw upon 2) gt 
om woo w 


= bo 


LASSE 
LRED 
LARS 
LASS 
LAB? 


LASD 
LAREF 


1A72 
LATA 


Oe 


LAT 


LATA 
LA’rC 
LATE 


es we we we 


3 
2H4H1A ABS.Y JSR 


RASSOLUTE.Y MODE 


ABSLUT 
YINDEA 
#2 
#5 


ACCUMULATOR MOBE 


A 


PR.CHR 


+B 


#1 


PRINT THE LETTER “A° 
OPERAND HAS NO BYTES... 
---AND ONE CHARACTER. 
RETURN TO CALLER. 


IMPLIED MODE 


#2 


IMMEDIATE 


+" + 
PR. CHR 
+" % 
PR.CHR 
ONEB YT 


#1 
#4 


earels JSR 
RFci2 i Dx 
ASSES LDA 
59 RTS 

3 

3 

3 

3 

, 
AS41 AC LDA 
244814 JSR 
nize LDX 
AISB1 LDA 
68 RTS 

3 

3 

; 

3 

3 

$ 
AZO IMPLID LDA 42 
ASaG LDA 
63 RTS 

5 

3 

3 

3 

3 
AIZS IMMEDT LDA 
2041514 oR 

, 
n3s24 LDA 
284614 JSR 
egcslg JSR 
AZEL LOX 
ASB4 LDA 
69 RTS 
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OPERAND HAS NO BYTES... 
e- -AND NC CHARACTERS. 


MODE 


PRINT A °#° CHARACTER. 


PRINT A DOLLAR SIGN TO 
INDICATE HEXADECINAL. 
FRINT ONE-BYTE OPERAND IN 
HEXADECIMAL FORMAT. 
OPERAND HAS ONE BYTE... 
..-AND FOUR CHARACTERS. 
RETURN TO CALLER. 


2324 INDIRECT MODE 
232 
2348 
2350 5 ; 
2268 LAVTF 28E1195 INDRCT JSR LPAREN PRINT LEFT PARENTHESIS. 

2374 LABS Z2H4ABILA JSR ABSLUT PRINT TWO-BYTE OPERAND. 

2384 LASS 2hHESig JSR RPAREN PRINT RIGHT PARENTHESIS. 
2394 1ABS AICS LDA +6 A HOLDS NUMBER GF CHARACTERS 
2440 IN OPERANG. 

2418 1ABA AZEZ LDK #2 x HOLDS NUMBER OF BYTES IN 
2420 OPERAND. 

2459 i1ABC 64 RTS RETURN TO CALLER.. 

2446 
2458 
2456 
24703 
2458 
2499 
2580 
2515 
2520 3 
2539 1ASD 266119 IND.X JSR LPAREW 

2540 1ASG 2GERILA JSR ZERO.A PRINT A ZERO PAGE ADDRESS, 
2556 A COMMA, AND THE LETTER "X*. 
2566 1ASS 2GE51i39 JSR RPAREN 

2576 ifS5 AZHL LUN #1 ONE BYTE IN OPERAND. 

2556 LASB ASe86 LDA +5 ® CHARACTERS IN OPERAND. 
2594 (C-IP OWNERS: AS BS, NOT 
260s AS 68, FOR NARROW FORMAT. 3 
2618 LASA 64 RTS 

2626 
26360 
2649 
2558 
2658 
2673 
2630 
2636 
2768 
27106 IfSEB 2GE119 IND.Y JSR LFAREN 

2 LASSE 26DB1A JSR ZEROPG PRINT A ZERO PAGE ADDRESS. 
2730 LAAL 269E519 JSR RFAREN 

e746 LARA 2EF 619 JSR YINDEK PRINT A COMMA AND A ’Y". 
27S LAAT AZBL LDA +i OPERAND HAS 1 BYTE... 

2frbe 1AAS ASSES LDA #9 .. AND & CHARACTERS. 

er? (C-IP OWNERS: AS G5, NOT 
272g AS 68. FOR NARROW FORMAT. 3 
2738 1AAB 56 RTS 

2865 
2616 
2626 
2838 
2248 
2850 
2660 
Zora 
2BBe 
2894 LAAC 294013 RELATY JSR INC.SL SELECT NEXT BYTE. 


wa 


ae we 


INDIRECT, % MODE 


e wh we 3S ws WO 


‘os we wt we 


INDIRECT, Y MOBE 


we we WE we we 


RELATIVE MOLE 


we we ws UP we OR ME le WO 


2389 1AAF 281215 JSR PUSHSL SAVE SELECT FOINTER ON STACK. 


£516 1IABZ 239412 JSR GET.SL GET OPERAND BYTE. 
2320 LABS 48 PHA SAVE IT ON STACK. 
2334 1LABG 298313 JSR INC.SL INCREMENT SELECT POINTER 
2949 SO IT POINTS TO NEXT OPCODE. 
29568 CRELATIVE BRANCHES ARE 
2558 RELATIVE TO NEXT OPCODE. ) 
2976 LABS 68 PLA RESTORE OPERAND BYTE TO ACC. 
23980 LABA Cl[I98 CMP #6 IS IT PLUS OR MINUS? 
2330 LABC 18603 BPL FORWRD If PLUS, IT MEANS A FORWARD 
3860 5 BRANCH. 
3618 3 
3626 H OPERAND IS MINUS, SO WE’ LL 

3 


Ja30 BRANCH BACKWARD. 
3946 LABE CES6512 DEC SELECT+1 BRANCHING BACKWARD IS LIKE 
3258 BRANCHING FORWARD FROM ONE 


3 
3060 $ PAGE LOWER IN MEMORY. 
3976. H 
308 3 
34946 tACcI aa FORWRD PHP SAVE CALLER’ S DECIMAL FLAG. 
3140 1lAC2 DB CLD CLEAR DECIMAL PIUDE, FOR 
3i1G BINARY ADDITION. 
3126 LACS 18 CLC PREPARE TO ADD. 
3138 LAC4 GDBS12 ADC SELECT ADD OPERAND BYTE TO SELECT. 
3146 1AC7 983 BCC RELEND 
3i50 1ACS EEBGIL2 IMC SELECT+1 
3168 IACC 896512 RELEND STA SELECT NOW SELECT FOINTS TO ADDRESS 
3176 ; SPECIFIED BY RELATIVE 
318 ; BRANCH INSTRUCTION. 
3190 LACF 25 PLP RESTORE CALLER’ S DECIMAL 
3200 5 FLAG. 
3218 1ADGA 2BAL1S5 JSR PR.ADR PRINT ADBRESS SPECIFIED 
3228 H BY INSTRUCTION. 
3239 LADS 292BiS JSR POP.SL RESTORE SELECT=ABDRESS OF 
3246 OPERAND. 
3259 LADB AZGL LDX #1 OPERAND HAD ONE BYTE... 
3266 LADS AGB4 LDA #4 AND FOUR CHARACTERS. 
3278 LADA 6G RTS RETURN TO CALLER. 
3286 ; 
32398 H 
3388 ; 
3316 ; 
3320 3 ZERO PAGE MODE 
3336 3 
3348 ; 
3359 3 
3360 3 
2278 1LADB ASB ZEROPG LDA #6 PRINT TWO ASCZXI ZERO’S TO 
33848 LADD 208314 JSR PR.BYT ALL SELECTEN BYTES. 
33908 ; CC-IP OWNERS: SUBSTITUTE NOPS 
34648 ; -~EA FA EA--FOR JSR PR.BYT. 
3410 H TQ GET NARROW FORMAT. 
34240 1AEB 26C81ig JSR ONEBYT PRINT ONE-BYTE OPERAND. 
3439 LAES AZAL. LDX #2 OPERAND HAS ONE BYTE... 
3448 1LAES ASG4 LDA #4 .. ANB FOUR CHARACTERS. 
3454 €C-IP OWNERS: AS GZ, 
3468 NOT AS 24, FOR NARROW FORMAT. 3 
347@ 1AEY 64 RTS 
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3480 
3490 
3590 
2518 
3520 
3532 
3546 
3550 
3560 
3576 
3586 
3592 
3680 
3618 
3520 
3530 
3648 
3658 
366a 
2876 
3680 
3699 
3722 
3710 
3728 
3733 
3740 
3750 
376B 
3770 
378 

2798 
3886 
3818 
3825 
3630 
3849 
385B 
3860 
2872 
3280 
3e90 
25ag 
3910 
3928 
3339 
3349 
3958 
39ea 
3976 
3382 
2990 
4500 
4010 
4320 
403 

4048 
4252 


LAES 
1LAEB 
AEE 
LAFG 


LAF2 


1AFS3 
LAF GS 
LAFS 
1AFB 


LAFD 


¢ we we 2e we we we we 


ZERO PAGE, X MODE 


24RBLA ZERO.X JSR ZEROPG PRINT THE ZERO PAGE RDDRESS. 
2S5EB19 JSR XINDEA PRINT A COMMA AND AN °X*. 
A201 LOX #1 OFERAND HAS 1 BYTE... 
AS46 LDA #6 -» AND SIX CHARACTERS. 
3 (C-IP OWNERS: AS 94, 
; NOT AD OG, FOR NARROW FORMAT. > 
63 RTS RETURN TO CALLER. 
3 
3 
3 
3 
3 ZERO PAGE ,Y MODE 
5 
3 
ZBDBLA ZERO.Y ISR ZEROPG 
26F619 JSR YINDEX 
AZUL LOX #1 
AIG6 LDA #6 C(C-IP OWNERS: AS 84 HERE 
8 FOR NARROW FORMAT. 3 
4) RTS 


ws we 464 we ws 


we “6 os wt 


as we 28 we ws 2F we Ne we VE we we 


HEE SHEE HKEREREEERDEKEREKEBRKSEEEREFEEEERERS 


A PSEUDO-ADDRESSING MODE 
FOR EMBEDDED TEXT: TEXT MODE. 


ERERBELGHEEEEBEEAEBEEEHBEEEREDSHEREEHBESABS KDA 


THE PSEUDC-OPCODE TEX CS7F) BEGINS ANY 
STRING OF TEXT AND PRINT CONTROL CHARACTERS. 
THE PSEUBO-TEXT CHARACTER ETX (SFF) ENDS ANY 
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4560 
4576 
4529 
45399 
4609 
4619 
4629 
4639 
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IAFE €& 


LAFF 


LBEG 
LB@L 


1BaS 
1BaS 
L1EBOT 
LEGFi 
LBC 
pac 
pil 
LE12 


iRi4 
15ir 
iB1A 


e we we we 


2t we we ’8 we ue we wt 88 le we we HO e we 


SUCH STRING. TEX HAS A PSEUDO-ADDRESSING 
MODE: TEXT MODE. IN TEXT MODE, WE PRINT THE 
STRING AND RETURN, WITHOUT DUMPING THE LINE 
IN HEX. THE STRING MAY BE OF ANY LENGTH. 


MODE PLA POP RETURN ADDRESS TO 

PLA OPERND. 

PLA POP RETURN ADDRESS TO 

PLA DSLINE. 
NOW DSLINE’ S CALLER IS ON 
THE STACK. 

JSR NEXTSL ADVANCE PAST TEX PSEUBO-OP. 

BMI TXEXIT RETURN IF REACHED EA. 

JSR GET.SL GET THE CHARACTER. 

CMP 4+ETH IS IT END OF TEXT? 

BEQ TACALT IF SO, STRING ENDED. 

JSR PR.CHR IF NOT, PRINT CHARACTER. 

CLC BRANCH BACK TO GET NEXT 


BCC TXMODE+4 CHARACTER. 


TXEXIT JSR CR.LF ADVANCE TO A NEW LINE. 
JSR NEATSL ADVANCE TO NEXT OPCODE. 
RTS RETURN TO CALLER OF DSLINE. 


BEER BAAEB EA EEEHRBERESEK BEE BEBE ERE REESE AEGESEEEBER 


TABLE OF ADDRESSING MODE SUBROUTINES 


4646 
465 
4660 
4670 
4586 
4692 
476 
4716 
4729 
4736 

TAG 
47SB 
4760 
47795 
4780 
473G 


1BiB 


1510 
1B1F 
1B21 
1B23 
1825 
1827 
1523 
LBZB 
1BZ2D 
LE2r 
1B31 
1B33 
1835S 
1B37 


B81A 


SEIR 
6DLA 
DBI1A 
Faln 
F3iAR 
4@1A 
481A 
531A 
631A 
ACIA 
SULA 
SBLA 
YF1A 
FELA 


SUBS 


- WORD 


WORD 
WORD 
WORD 
«WORD 
WORD 
-WORD 
» WORD 
«WORD 
»WORB 
. WORD 
WORD 
»WORD 
«WORD 
~WORD 


IMPLID 


ACC 
IMMEDT 
ZEROPG 
ZEROWA 
ZERO.Y 
ABSLUT 
ABSA 
ABS.Y 
IMPLID 
RELATYV 
IND.X 
IND. Y 
INDRCT 
TRMODE 


ADDRESSING MODE @ IS INVALIB, 
HENCE IMPLIED. 
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Appendix C8: 
Table-Driven Disassembler (Tables) 


10 

24 

32 

4h 

53 

64 

7B 

Ba 

Sé 
193 
119 
124 
138 
146 
156 
166 
174 
184 
130 
266 
214 
220 
235 
246 
250 
26h 
278 
254 
233 
303 
318 
328 
338 
3468 
353 
3SBB 
3ro 
SEO 
339 
4aa 
416 
426 
439 
448 
454 
456 
476 
480 
494 
09H 
514 
524 
S20 
248 
554 
569 
576 


AATF = 


Barr = 


we we ve @8 wt 48 wa 


we we WO we we BE ye we ws we ye 


we we SA ws 


we we 6 we we UH we wt 


we we we wa wh we 


APPENDIX C8: ASSEMBLER LISTING OF 
TABLE-DRIVEN DISASSEMBLER 


TRBLES 


SEE CHAPTER 9 OF BEYOND GAMES: SYSTEM 
SOFTWARE FOR YOUR 6502 PERSONAL COMPUTER 


BY KEN SKIER 


GHEEBESEEKDBEREEBREBEREBEBREDEKS DHE EEAEEESEBSEEEE 


CONSTANTS 


EEHEB EBS LEEBESREEASEHKERE ES $FEKELHSEKSSHEKEBSDSHE 


TEX = $7F 


ETA = SFF 


THIS CHARACTER MUST START 
ANY MESSAGE. 


THIS CHARACTER MUST END 
ANY MESSAGE. 
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mame cn 
em oy 
moo 8 


749 1BSS 


6560 LES 


e246 IBSi 
845 LBS2 
644 1BS3 
BSH 1BS+4 
656 LBSS 
S58 1BSs 
S63 LAST 
&65 1BS5 
G68 LESS 
675 1EBSA 
67rG@ 1BSE 
Bra 1ESC 
eo iBSD 
Gea 1BSE 
628 BSF 
695 1EGA 
BIG Lpbl 
G96 1Ba2 
3H LEBS 
SHER iPb64 
S64 IEEE 
919 1BSe 
916 1LEa7 
91) 1568 
S28 1EGg9 
324 1BEA 
926 IBEB 
958 ibec 
S38 1550 
S38 1ESE 
344 iBeF 
S49 LETS 
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TF 


4E 


= 


we we 4h wee we le 


2 on OO we wR we 


DSPAGE=$ 1500 


STARTING PAGE OF DISASSEMBLER 


SEAL MABHEH EE EKHKKAKBBHSHAKBSHESSBALSERDERES SES 


LIST OF MNEMONICS 


ESHREHKEBBEEDE LEEDS GEAEESHEREBRSSHALEFASHSESEASSA 


RMES 


*=DSPAGE+S$25U 


~-BYTE TEX 


~BYTE ”° BAD’ 


~BYTE * ADC’ 


~BYTE * AND’ 


»~BYTE ’ ASL’ 


-BYTE ° BCC’ 


-BYTE ’ BCS’ 


~-BYTE ’ BEQ’ 


~-BYTE ’ BIT’ 


»~ BYTE * BMI’ 


-BYTE ° BINE’ 


~BYTE ° BPL’ 


SINCE THIS TABLE IS A 
STRING OF CHARACTERS, START 
IT WITH THE TEX PSEUDO-OP. 


S40 

95% 

956 

954 

SES 

$50 

364 

378 

378 

976 

9283 

Sao 

9588 

933 

934 

998 
1680 
16aq 
1956 
1919 
1614 
16140 
1828 
12829 
1626 
1624 
1@38 
19536 
1642 
1945 
1G4a 
1e@54a 
1asa 
1G56 
16693 
1254 
1654 
1076 
1076 
1a70 
1868 
1@B4a 
1igsa 
1699 
14358 
1639 
L1GA 
1193 
11G4 
1114 
1118 
1114 
1129 
1120 
1120 
1138 
1134 
1130 


LB71 
1B72 
1B73 
\BT4 
LBS 
1B75 
LET? 
LB7Sa 
1B79 
1B7A 
IB7B 
1B7C 
1BrB 
1B7E 
LBYF 
1BSd 
1BS1 
1BS2 
1BS3 
1BS4 
BSS 
1BS6 
LEBS7 
LBBs 
1Bs9 
1BEA 
LEBSB 
LEBac 
185) 

1BSE 
LBSF 
1BSS 
1E34 
LES2 
1BS3 
1234 
LESS 
L1B35 
LBS? 
IBSS 
1B39 
1BSA 
LBSB 
LBC 
LBS 
LESE 
LBOF 
LBA 
BAL 
1BARZ 
1BAS 
1BA4 
1BRS 
1BARE 
IBA? 
LEAS 
1BRS 
1BAA 


4c 
42 
52 
43 
42 
S6 
43 
42 
55 
53 
43 
4c 
43 
43 
4c 
44 
43 
4C 
4g 
43 
4C 
S6 
43 
4D 
52 
43 
5a 
58 
43 
SG 
Sg 
44 
45 
43 
44 
45 
58 
44 
45 
sg 
45 
4 
52 
49 
4E 
43 
49 
4E 
SS 
49 


ead 


[on 
bab 
44 
40 
59 
4n 
53 


52 


~BYTE ’ BRK’ 


~BYTE ° BUC’ 


BYTE ° BYS’ 


~-BYTE ” CLC’: 


~BYTE ° CLD’ 


~BYTE ’ CLI’ 


~-BYTE ’ CLV’ 


~BYTE ° Crip’ 


~BYTE ° CPX’ 


-BYTE * CPY’ 


-BYTE ° DEC’ 


~BYTE * DEX’ 


~-BYTE ”* DEY’ 


~-BYTE * EOR’ 


-BYTE *° INC’ 


~BYTE * IN’ 


~-BYTE ’ Tidy’ 
~-BYTE *° JHP’ 
~-BYTE * JSR’ 
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1144 1BAB 4C BYTE 
1146 1BAC 44 
1144 1BAD 41 
1155 1BAE 4C ~BYTE 
1156 1BAF 44 
1155 1ZEA Sé 
1168 1EBB1 40 - BYTE 
J1i66 1EBBe 44 
1169 1BE3S S39 
1174 L884 4C ~ BYTE 
1176 iBBS 53 
1i7@ 15586 52 
Lic iBBY 4E -BYTE 
L166 1IBES 4F 
11iS6 1BES SG 
1156 1BBA 4F - BYTE 
11S6H LERB S2 
1198 1BRC 41 
1244 1BED SA ~BYTE 
1260 IBBE 48 
1204 IEBF 41 
1216 1ECoH 53 - BYTE 
1216 LEC 45 
1216 iBC2 59 
1224 iBCS 59 -BYTE 
1226 1EC4 4C 
iz2zY™ 1BCS 41 
1234 1BC6 SO ~BYTE 
1236 IBC? 4C 
izsA 1BCS 54 
1246 1BCS S2 ~BYTE 
1240 1LBCA 4F 
1248 1BCB 4C 
1256 1BCC 52 ~-BYTE 
1258 1IBCD 4F 
1256 1BCE 52 
1266 LBCF S2 »-BYTE 
1264 1B09 54 
1266 12BD1 49 
izrad 1Bn2 S2 ~BYTE 
l2rG 1ED3 54 
i2z7r 1BD4 S3 
1265 1BDS 5s ~BYTE 
12865 1506 42 
1284 iBDY 43 
12956 1505 &S3 »-BYTE 
i2zsa@ 1BDS 45 
1299 LsDA 43 
i396 1BODORB S32 ~-BYTE 
13608 1BDC 45 
1398 1END 44 
319 LBDE 53 ~BYTE 
1314 iBDF 45 
1318 1BEG 49 
{326 BEL 53 BYTE 
13¢8 1LBE2 S4 
132@ 1BES 41 
133 1IBE4 53 ~BYTE 


304 BEYOND GAMES 


’ LDA’ 


* L DX’ 


4 LDY’ 


* LSR’ 


* NOP’ 


’ ORA’ 


’ PHA’ 


* PHP’ 


‘PLAY 


* PLP’ 


* ROW’ 


* ROR’ 


"RTT 


° RTS’ 


* SHC’ 


* SEC’ 


* SED’ 


’ SET’ 


"STAR 


* STx’ 


1332 1BE5 54 

1336 LBEG S38 

1348 1BE? S3 ~-SYTE ° STY’ 
1349 1BES 54 

1348 1BES S93 

1358 1BEA 54 »BYTE * TAX’ 
1356 1BEB 41 

1350 1BEC 58 

1360 1BED 54 ~BYTE ’ TAY’ 
1366 1BEE 41 

1360 1BEF 59 . 
i372 1BFO 54 ~BYTE ° TSX’ 
1379 iBF1l S3 

1378 i3F2 58 

13890 LBFS 54 BYTE ° TXA’ 
1380 1BF4 58 

13809 1BFS 41 

1350 iBFS 54 »=BSYTE * TXS’ 
1398 iBF?7 5S 

1330 1BFS 53 

1400 1BFS S54 -BYTE ’ TYA’ 
1406 1BFA S93 

1460 1BFB 41 

141G 1BFC 54 ~BYTE. ’ TEX’ 
1412 1BFOD 45 

1410 IBFE 58 


14293 ; 

14323 IBFF FF -BYTE ETX SINCE THIS IS THE END OF A 
1446 3 STRING OF CHARACTERS, USE 
1456 ; ETX TO INDICATE END OF TEXT. 
1469 3 

1473 3 

1486 3 

1490 H 

1580 3 

1518 3 

1520 H 

1534 $ 

15408 $ 

1552 H 

1568 ; 

1S7@ F  SESEKFEHAEFAKABERHEAAHHAAAGERERED KEKE RAB EBDBDHFS 
1586 3 

15928 ; TABLE OF MNEMONIC CODES 

1693 3 

161¢ § SKEKEHEKHSLEASHEHKALAESKDESHEEREEASESEASAKEHRSLES 
162g ; 

1536 3 

165498 $ 

1658 ; 

1666 3 

167@ $ A MNEMONIC’S CODE IS ITS OFFSET INTO 
1680 s WMNAMES, THE LIST OF MNEONIC NAMES. 

1696 ; 

170 $ 

1719 3 

1iv2@ 1C80 22 MCODES .BYTE $22,%6A,1,1,1.95A,$6A,1,370 


i72@ 1C@1 6A 
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1729 
L72Ze 
1729 
1?28 
1723 
20 
L?’2 
1728 
ivs 
17S 
1738 
1730 
17398 
1730 
17468 
1742 
1740 
1749 
1746 
1746 
1748 
1744 
175a 
17358 
17S6 
1752 
175d 
1752 
1750 
1758 
1768 
1766 
1758 
1768 
1756 
LTEG 
1760 
1760 
177 
177s 
177% 
ir7d 
1776 
1770 
177q 
1779 
1755 
1786 
1758 
17358 
178a 
1789 
1789 
1736 
1730 
17359 
1739 
1790 
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1CBH2Z 
1Cas 
1034 
1CGS 
1CH6 
1CH7 
1C8S 
1C83 
1CBA 
1CoB 
LCMC 
icuD 
1CBE 
CGF 
1c1g 
1Cil 
ivi2 
1213 
1C14 
(C15 
iC16 
ici?’ 
1C18 
1C1ig 
1CiA 
1C1bB 
1C1ic 
1ciDd 
AC1E 
LULF 
1C28 
1C21 
1C22 
1C23 
1C24 
1925 
{C25 
1C27 
1C23 
1c29g 
1C2A 
iC2B 
L172C 
1C2D 
1C2E 
1C2F 
1C36 
LCs 
1C32 
1C33 
1C34 
L1Cc3s 
1C36 
1C37 
LC3s 
1Cs3g 
1C3A 
1C3E 


G1 
41 
Bl 
6A 
OA 
Ol 
78 
6R 
SA 
BL 
G1 
BAR 
GA 
Ql 
1F 
6A 
G1 
61 
B1 
6A 
BA 
Ol 
2B 
6A 
OL 
ai 
Bl 
EAR 
OA 
ai 
5S 
a7 
41 
Bl 
is 
DT 
79 
61 
76 
ar 
73 
O1 
16 
OV 
a) 
Ol 
13 
ar 
G1 
Al 
Al 
a? 
73 
Bl 
rel 
B7 
Ol 
ol 


~-BYTE 


-BYTE 


»~ BYTE 


~BYTE 


~ BYTE 


BYTE 


BYTE 


$6A,30A,1,1.%67,3HA,1 


$1F ,$6A,1,1,1,965A,30A,1 


$2B,$6A,1,1,1,36A,86A,1 


$58,7,1,1,916,7,$79,1 


$75,7,%72,1,%916,7,$79,1 


$19,7,1,1,1,7,%79,1 


$68,7,1,1,1,7,8795,1 


17Taos 
1728 
1738 
17230 
1654 
16869 
1fhu 
1eea 
1686 
18940 
18s8a 
1860 
181g 
1e14a 
1816 
1818 
1818 
1816 
18108 
1816 
1826 
1828 
182a 
1825 
1620 
1626 
1829 
1823 
1639 
1830 
16368 
1639 
1839 
1938 
1836 
1830 
1849 
1849 
1848 
1646 
1844 
18463 
1848 
16424 
1853 
1858 
1S53 
1658 
1652 
1856 
1559 
1852 
1BES 
1BEG 
1856 
1869 
1S6g9 
1856 


1c3c 
1C3D 
LC3E 
1C3F 
1048 
ic41i 
1C42 
1C43 
1044 
1c45 
1C46 
1C47 
1c42 
1049 
1C4A 
1C45 
1C4C 
1C4D 
1C4E 
1C4F 
1Cc56 
1CS1 
1052 
1CSs 
1c5S4 
1csSS 
1CS5 
1cS7 
icss 
1059 
1CSA 
1CSB 
1csc 
1cSD 
ICSE 
1CSF 
1C6B 
1Cc6l1 
1C62 
1C&3 
1C64 
1C65 
1CEE 
1CB57 
1C68 
1C59 
1CB5A 
1CEB 
{CBC 
1C6D 
ICSE 
LCEF 
1cTa 
1c71 
1Cv!] 
1C7T3 
1C74 
ic7s 


Bl 
SS 


~ BYTE 


BYTE 


~BYTE 


~-BYTE 


~BYTE 


»=BYTE 


~BYTE 


$7F ,$49,1,1,1,$49,%64,1 


$6D,$49,864,1,$55,$49,964,1 


$25,%$49,1,1,1,%45,%64,1 


$31,9349,1,1,1,%49, 64,1 


$52,4,1,1,1,4,$7C,1 


$73,4,87C,1,955,4,87C,1 


$23,4,1,1,1,4,37C,1 
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1854 
LSeB 
is7i 
1878 
1878 
1s7G 
i876 
1678 
1876 
is7b 
15g 
i856 
188g 
168q 
1883 
i8sa 
1860 
i888 
1636 
i839 
15386 
189G 
13839 
1898 
183g 
1099 
1998 
1SGG 
1SGa 
1966 
1346 
19993 
1989 
1366 
1316 
1918 
1514 
1914 
1916 
19140 
195ig 
191g 
13240 
19528 
1326 
1928 
1928 
1826 
1924 
1826 
19230 
19308 
1533 
19328 
1938 
1938 
1934 
1934 
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1C76 
1c’? 
1c7s 
1c7ga 
ICVA 
iC’B 
1c?c 
LC?rD 
ICTE 
LCTF 
1Ces 
icel1 
1C82 
ices 
1C64 
icBg5 
1C&5 
1CS?7 
i1C85 
1Ccs3g 
LCA 
LCSB 
icac 
ics 
iCSE 
LC8F 
1cse@ 
iC31 
1C92 
1C33 
ics4 
10395 
1C396 
ics? 
1csa 
1¢c3g 
1CSA 
1CSB 
icgsc 
1cSD 
ICSE 
1CSF 
icra 
ICAL 
1CR2 
1CAZ 
1CA4 
iCAS 
LCAG 
LCA? 
iCAS 
1CAS 
iCAA 
1CAB 
LICAC 
1cAD 
LCRE 
LCAF 


ras 
61 
BE 
04 
Al 
01 
G1 
64 
“CO 
AC 

Wi 

91 

61 
OL 

S7 
Si 
34 
Gi 
46 
a1 
AS 
Oi 
37 
Si 

24 
G1 

QD 

Sl 
Ai 
@1i 
97 
S1 
34 
G1 
AJ 
Si 
AS 
@1i 

G1 

91 

Oi 

Gi 
Bi 

5B 
SE. 
Gi 

GL 
55 
SE 
Bi 
30 
58 
3A 
G1 
61 
SB 
SE 
G1 


~-BYTE $5£,4,1,1,1,4,%7C,8AC 


-BYTE 1,991,1,1,%97,891,854,1 


-RYTE $46,1,%A3,1,997,%91,394,1 


-BYTE #00,891,1,1,897,891,9594,1 


-BYTE $AI,SSL,$AS,.1,1,9591,1,1 


-BYTE 451,%55,95£,1,851,35B3B,¢5c,1 


~BYTE $9D,%5B,29A.1,9651,95B,85£,1 


1940 
1948 
1948 
1949 
1942 

194@ 
1940 
1942 
1958 
1950 
1358 
1359 
1956 
195q 
195g 
1959 
1SEa 

1960 
196g 
1962 
196G 
1960 
1S68 
1968 
13979 
i972 
197G 
197g 
1979 

1978 
1970 
1978 
198g 
1986 
1980 
1986 
1980 
198a 
isaa 
198a 
1ssq 
1998 
1s9a 
1990 
1986 
isso 
13sq 
1998 
208g 
2029 
2820 
202g 
2028 
2020 
2008 
2090 
2B1B 
20108 


1cBga 
1CB1 
iCB2 
1CB3 
1CB4 
1CES 
ICRS 
LCB? 
1CBS 
iCBS 
iCBRA 
1CBB 
icBC 
1CBB 
ICBE 
ICBF 
1CC9 
1vcl 
1CC2 
1cCc3 
1CC4 
1CCS 
1CCS 
iCccy 
1CCS 
1ctcs 
ICCA 
LCCB 
Lecce 
1CCB 
1CCE 
LCCF 
icDs 
icol 
icve 
1CcD3 
1CD4 
1CDS 
iCD6 
ICD? 
1CL8 
1cys 
LCA 
1CDB 
icnue 
1CDD 
1CDE 
icDF 
1CEB 
ICEL 
1CE2 
ICES 
LCE4 
1CES 
1CE6 
LCE’ 
1CES 
1CES 


1a 
SB 
al 
BL 
61 
SB 
SE 
Bl 
34 
5B 
SE 
a1 
61 
SB 
SE 
Bi 
30 
37 
BL 
Gi 
3B 
37 
4 
al 
52 
37 
43 
Bi 
3B 
37 
4g 
Bl 
1C 
37 
a1 
@1 
Gl 
37 
4G 
ai 
2E 
37 
a1 
Gi 
Bi 
37 
4B 
BL 
3A 
BS 
B1 
ai 
3A 
e5 
4C 
Bi 
4F 
85 


~ BYTE 


~BYTE 


~BYTE 


~BYTE 


~ BYTE 


-BYTE 


«BYTE 


-BYTE 


$16,95B,1,1,%61,85B,$S5E,1 


$34,$5B,99E,1,8651,95B,85£,1 


$30D,%37,1,1,$30,937,9439,1 


$52,837 ,$43,1,930,837,%46,1 


$1C,$37,1,1,1,%37,%40,1 


$2E,9$37,1,1,1,837.940,1 


$3A,985.1,1,%$5A,995,$4C,1 


$4F,995.857,1,83A,%85, $4C,1 
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2616 
2010 
2014 
2618 
2016 
2016 
2428 
2620 
2026 
2420 
2620 
2926 
24020 
2620 
2836 
24su 
2638 
24939 
2826 
2630 
2430 
2836 
2A4G 
2954 
2660 
207G 
240@ 


2430 


2196 
2110 
2128 
2130 
Z148 
2158 
2160 
2178 
2180 
2198 
2200 
2210 
2220 
2238 
2248 
2258 
2260 
2278 
2280 
2290 
2328 
2319 
2320 
2330 
2334 
2334 
2338 
2330 
2324 
2334 
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ICER 
1CEB 
1CEC 
1CED 
LCEE 
1CEF 
iCFd 
1CF1i 
1CF2 
1CF3 
LCF 4 
1CFS 
1CF6 
LCF? 
1CF8 
1CF9 
1CFA 
1CFEB 
1CFC 
icFD 
ICFE 
LCFF 


LDaG 
1DB1L 
1062 
1D63 
1D84 
L085 
1666 


67 
BL 
3A 
85 
4C 
GL 
13 
85S 
61 
Al 
G1 
85 
4C 
U1 
3B 
85 
Bi 
Bl 
ap 
65 
4C 
G1 


12 
16 


aa 


4G 
Bw 
26 
05 


tM 


© “8 ae ws BA we wt we Vt we we o> wh we wn we ewe ws we OO we ee MS pe we en wh OE Oe 


-BYTE $13,905,1.1,1,%35,84C,1 


-BYTE $6B,%05,1,1,1,865,34C,1 


BEHDGCEBHKEEBEEHE DEGREE KEARSE EEDEHED ES EBE SES ES 
TABLE OF ADDRESSING MODE CODES 


SEEAESEKRERSSKHEKSBEEKRERHFEREBEAKEEKEEEHRAEBES 


AN AUDRESSING MODE’ S CODE IS ITS OFFSET 
INTO SUBS, THE TABLE OF ADDRESSING MODE 
SUBROUTINES. 


DES .BYTE 18,22,6,0.6,6,6,9 


NM NM PN fy N pg 

No Wow oO Oo WwW og 
bdbhoeRER bh DD fy) 

VaAGdVHSse Aggndssavswdoewsar 


NON 


mo) oul aon ss 


NNNN WN 
4} G3 WW O) ly OB 


s) 
J 


UVaAA WAN AI NN AN DO oO 


OHAMUVIHGogagayvngaogwvw sos vaovwaw—rtoaage 8 


QuoWWWdo Ww ow ww oo 


NNNNNNNANNNNNNNNNN ff 


wnooom od 


NNN 


Qo tu wd wow to 


N 
t 

LO 
iS) 


Ww 


24054 
2455 
2488 
2498 
2400 
2480 
Z41G 


1na7 
1DwBS 
Lne3 
Liner 
i1D8B 
inac 
1DaD 
1DGE 
nar 
1D18 
1Di1 
1D1i2 
10123 
1B14 
1mis 
iD1s 
1DL7 
iD1S 
1big 
iDLA 
1DiB 
1D1Cc 
ipin 
1DiE 
LDIF 
1022 
1021 
1p22 
1Dz3 
1pz4 
1D25 
1026 
1027 
iBDzZsS 
1DZ29 
102A 
1025 
1p2c 
1025 
L02= 
1D2F 
10398 
1D31 
1D32 
1D33 
1D34 
1035 
1D26 
1037 
1b38 
1033 
LDS 
1DS5 
1G3C 
1530 
LDSE 
iD3r 
1p4a 


G2 
ad 


BC 


2G 


a 


Ziv 


oOoea 
OO 


a4) 


Oo se 
Ooo +r 


Oere OM Ys 
HSanoaoauon 


~-BYTE 


-BYTE 


-~ BYTE 


»~BYTE 


~BYTE 


~- BYTE 


BYTE 


»~BYTE 


18,4,2,8,9,12,i12,8 


20,24,.9,9,0.14,.14,0 


18,16,9,8,6,22,22,@ 


12,22,0,9,6,6,6,8 


18,4,2,9,12,12,12,8 


28,24,9,6,.0,8,3,9 


15,16,9,0,9,14,14,6 
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24184 
2416 
2419 
2415 
2418 
2410 
2416 
24208 
24248 
2426 
2425 
242k 
2420 
2428 
2428 
2438 

2439 
2438 
2439 
2420 
2438 
2435 
2439 

2449 
244 
2446 

2446 
2448 


2446 1 


2448 
2446 
2456 
2455 
2453 
2455) 
2459 
2455 
2458 
2458 
2455 
2460 
2455 
2466 
24E 
2466 
245% 
24648 
2476 
2470 
24740 
2478 
2476 
2478 
2476 
2478 
2489 
2435 
2486 
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1041 
1n42 
1D43 
1044 
1045 
1D46 
1D47 
ib4as 
1s 
ID4A 
iD4s 
iDac 
1D4D 
1n4e 
iD4ar 
1052 
1DS1 
1052 
ines 
1ps4 
1DS5 
LDSS 
1DS7 
Lose 
ipsa 
iDSA 
1058 
iBSC 


15 
AS 
a2 
Vale 
86 
a=) 
AB 
12 
Wc 
Ke 
AG 
wc 
BC 
6C 
Ba 
14 
is 
3) 
"255) 
as 
89 
aS 
a1) 
12 
19 
09 
BS 
BQ 
GE 
BE 
BS 
12 
16 
00 
Maa 
ae 


eo BS 


G6 
vale) 
12 
4 
H2 
Be 
1A 
BC 
BC 
aa 
14 
18 
GG 
BG 
83 
as 
43 
Od 
12 
1G 
7p) 


~-BYTE 


»BYTE 


~-BYTE 


»BYTE 


~BYTE 


~BYTE 


»~ BYTE 


16,12,2,9,12,12,12,G 


28,24,8,0,9,38,8,¢ 


18,16,9,6,0,14,14,G 


18,22,9,6,6,6,6,0 


18,.4,2,8,25,12,12,0 


29,24,9,0,9,8,.8,a 


18,16,6,0,G,14,14,28 


24809 
2400 
2499 
2480 
2433 
2458 
2598 
2556 
2550 
2552 
2599 
2508 
2589 
2548 
2514 
2518 
25198 
2510 
2510 
251G 
25183 
2516 
25253 
S23 
2526 
2520) 
252 
2525 
2528 
2529 
2520 
25368 
2538 
2525 
2536 
2538 
2539 
2530 
25498 
25468 
25,40 
2543 
2549 
2545 
2548 
25403 
2555 
2556 
2555 
2555 
2550 
2559 
2558 
25559 
2566 
2569 
2568 
2566 


1D75 
LBC 
1DnTD 
1DTE 
LOTr 


Lea 
1D61 
1082 
1083 
LDS 
1LbS5 
LDeS 
1Dor 
1033 
iBes 
105A 
1DB2 
1Bsc 
1D8D 
1DSE 
LiSF 
iDSe 
insi 
L052 
1093 
1B94 
1035 
1096 
L537 
1098 
10953 
LOSA 
LOSE 
Lpac 
10395 
iDSe 
LOSF 
LDA 
IBDAL 
1BAZ 
pas 
1DA4 
LGARS 
LDAS 
LRAT 
iDAS 
iDAS 
LDAR 
IDAB 
LDAC 
1DAB 
1DAE 
LDAF 
ine 
(DEL 
1DBZ 
iDBS 


09 


6G 


0C 


gC 


BS 


aC 
AC 
aC 
3} 
14 
18 
11) 
ph 


~BYTE 


~BYTE 


~-BYTE 


~BYTE 


~-BYTE 


~-BYTE 


~BYTE 


0,22,9,9,6,6,6.9 


16,0,18,9,12,12,12,%8 


206,24.9,9.8.8,19,6 


1€,16,15,9,90,14,9.@ 


4,22,4,8,5,6,6,8 


18,4,18,9,12,12,12.0 


25,24,5.0,8,5,108,08 
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2550 
2566 
2568 
2558 
2573 
2576 
2579 
2570 
2570 
2578 
2576 
2579 
2538 
2500 
25808 
25283 
2583 
25308 
2580 
2508 
25354 
2594 
2598 
25348 
2590 
2538 
2596 
2599 
2<EnG 
2686 
25280 
2620 
2693 
2648 
2600 
2606 
2613 
2516 
2619 
2619 
2616 
2610 
2518 
2616 
2623 
2620 
2626 
2620 
2528 
2629 
2526 
2620 
2632 
2635 
2626 
2528 
2630 
2634 
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LDB4 
1DBS 
LDBG 
1DB? 
1DBS 
{DEBS 
DBA 
IDEB 
LDSC 
1DBO 
1DBE 
1DBF 
1ncg 
1DC1 
1DC2 
1BCc3 
1DC4 
Lpcs 
1DC& 
LDC? 
LDCS 
1DC9 
LDCR 
1DCB 
LOCC 
1pcb 
1DCE 
LGCF 
1DDG 
iDDL 


1002. 


1DB3 
1DB4 
L005 
1DDS 
1DB? 
1DD6 
iDbDS 
1DDBA 
1BDS 
LDDC 
LDDD 
1DDE 
LDDF 
LDES 
1DEL 
1DE2 
IDES 
1DE4 
LDES 
LDES 
1DE?7 
LDEB 
1DES 
LDEAR 
IDEB 
LDEC 
LDED 


a3 
as 
BR 
1%] 3) 
14 
10 
12 
BA 
AE 
GE 
19 
1) 
B4 
16 
2) 
68 
OS 
66 
B65 
AG 
12 
04 
12 
Ge 
BC 
GC 
Zc 
12) %) 
14 
18 
474) 
a4) 
80 
68 
BS 
4) 74) 


12 


16 
ap) 
25%) 
21%) 
BE 
GE 
43) 
84 
16 
68 
BB 
55 
O65 
BS 
Si) 
12 
B4 
12 
Bi 
6C 
ac 


~BYTE 


~BYTE 


~-BYTE 


BYTE 


BYTE 


~BYTE 


~BYTE 


28,16,15.0,14,14,1€6,.9 


4,22,80,8,.5,6,6,9 


186,4,18,0,12,12,12,9 


29,24.0,4,9,8,8.G6 


18,16,8,.@.0,14,14,0 


4,22,9,9,6,6,6,6 


18,4,18,0.12,12.12,9 


2634 
2630 
2646 
2640 
2646 
2640 
2640 
2646 
2640 
2648 
26598 
2659 
2658 
2650 
2650 
2659 
2656 
2650 


IDEE 
LDEF 
iDFG 
LDF 1 
LDOF2 
1DF3 
LDF 4 
LDFS 
1DFG 
LDF? 
LDFSe 
10F9 
1DFA 
1DFB 
LOFC 
LDF D 
1DFE 
LOFF 


8c 
BG 
14 
18 
i) 
20 
0a 
as 
Bs 
5 ]%) 
12 
14 
45) 
GG 
8B 
GE 
GE 
60 


-BYTE 20,24,0,2,0,8,8,0 


~-BYTE 19,15.8,6,0.14.14,@0 
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Appendix C9: 


Move Utilities 


ag) nm =! 
ow 


i 


agayacg: 


Oe 


JWOWW WwW OW NN DP) 
OI nim tye t 


goAD= 
B0GA= 
BUTF= 
Gurr= 


1466= 


we we we we 28 we 24 we 8 


w2e we we 4A ws ws wep ws 6wPlUWwtl U8lwl lek 8 lee 


os we we ws we WF we we ws VA we ws ws ow BO et le we 


APPENDIX CS: ASSEMBLER LISTING OF 
MOVE UTILITIES 


SEE CHAPTER 16 OF BEYOND GAMES: SYSTEMS 


SOFTWARE FOR YOUR 65@2 PERSONAL COMPUTER. : 


BY KEN SKIER 


KHEEMREREEDKEESSKEHABEBEERDEEEBEFREELEKSEEHKEBRSDS 


CONSTANTS 


KEEPER KLEEABEELAKREDBBEDDEESBSESEBEKEKERBEBREKKERSES 


CR=30D CARRIAGE RETURN. 

LF=S0A LINE FEED. 

TEX=37F START OF TEXT CHARACTER. 
ETA=3F F END OF TEXT CHARACTER. 


LED EBRESEEBERBELEEREEBREEESEDBERHBEBEDEESERFEBHEDS 


EXTERNAL AGDRESSES 


BEEBE REREEABEREKEES ERS IBGE BEEREREKESESASES 


VMPAGE=5 1250 STARTING PAGE OF VISIBLE 
MONITOR CODE. 


SELECTSUMNPAGE+S 
VISMONSUMNPAGE+7 


PRPAGE=3 1400 STARTING PAGE GF PRINT CODE. 
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S99 1498= TUT. OGN=PRPAGE+8 

606 14£4= PRINT: =PRPFAGE+SE4 

616 1512= PUSHSL=PRPAGE+$112 

620 152B= POP. SL=PRPAGE+S$12B 

6348 

645 

650 1560= HEX. PG=$1588 ADDRESS OF PAGE IN WHICH 
6EG HEXDUMP CODE STARTS. 

6790 CHEXDUMP CODE STARTS AT 
68a $1550, BUT IT’S EASIER TO 
590 COUNT FROM $1504. 3 

6217) 
716 15£69= SETADS=HEX.PG+SE9 
%2B 
734 
746 
7SG 
76a 
(7o 
78G 
736 
309 
81a 
820 
633 
B4a 
856 
866 
876B 
089 
8390 
506 175@ *=$17 BO 
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93260 

936 1552= SASHEX.PG+SS2 POINTER TO START ADDRESS 
940 OF BLOCK TO BE MOVED. 
958 
369 15545 EA=SA+Z POINTER TG END OF BLOCK TO 
97a BE MOVED. 

1006 

1019 17BS goa N 
182G 

19398 
1946 

1656 

1960 17B2 BBa0 D 
1@72 

182¢G 
1658 

1160 
1115 

11265 

1138 

1144 

1156 @650= GETPTR=0 THESE THO “PAGE POINTERS” 
1166 neb2= PUTPTR=GETPTR+2 GET AND PUT BYTES. 

1179 

1182 


EBRKREEEBLERREBDDSEREKEEREKEREEREREKKSE SEEKERS 


VARIABLES 


KEKERERRELERBEEBRED HES EKEEEEREEHELEGESEPERESSE 


at ws we we ws 88 we wt we M8 le Oe 8 le 8 ws US Oe 


1 -HORD @ NUMBER OF BYTES IN BLOCK 
TO BE MOVED. ZERO MEANS 
BLOCK CONTAINS 1 BYTE. 


ST -WORD @ POINTER TO BLOCK’ S 
DESTINATION. 


me wl wn WR we wk owe we fT] we on we wa [we we 
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119% 
1208 
1210 
1228 
1239 
1240 
1259 
1264 
127 
12e0 
1zsa 
1335 
13516 
1329 
13358 
1343 
1356 
Ise 
1370 
1388 
1339 
12359 
13368 
1453 
1425 
1460 
14686 
1493) 
1489 
1488 
1485 
1449 
1496 
1466 
1462 
1498 
1403 
1480 
1419 
1416 
1416 
1416 
142 

1438 
1446 
145) 
1468 
1479 
1400 
14368 
1546 
1514 
1529 
15358 
1549 
15S8 
1588 
1o7o 


oe 06 we we U6 ws WE we we wh 4S Ot wt ws wt we Oe 


FEHEKHRHKHKEEHRDEFEBHSERHERSHEKSEREKREHESELERELSFEHAS 


MOVE TOOL 


SHLKHKEBEHAKADHSEHRKKSSHKKEREERHEBESAEKSEFESFEHAS 


2960814 MOVER JSR TVT.ON SELECT SCREEN FOR OUTPUT. 


25414 
7F 
aD 
BA 
29 
29 
2a 


et we we we we wt wa we 86 we wt 


JSR FRINT: DISPLAY A TITLE. 
~BYTE TEX,CR,LF 


~BYTE ” MOVE TOOL.’ 


~-BYTE CR,LF,LF,ETX 


JSR SETADS GET START ADDRESS. END 
ADDRESS FROM USER. 


JSR SET. DA GET DESTINATION ADDRESS 
FROM USER. 
WITH THOSE POINTERS SET, 
WE’ RE READY TO EXECUTE MOV.EA: 


SHAKBSEREREBEKES FRESE ESE ESELEEREERERBSY 
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158a 
1593 
1E09 
1619 

1622 
1636 
1640 
1655 
16EG 
16793 
1684 
1694 
17aa 
L710 
17308 
1742 

1758 
1756S 
1778 
17sa 
1799 
18089 
1619 
1820 
1820 
i84a 
185a 
1656 
1878 
1856 
15394 
1983 
1916 
1929 
1336 
1548 
1959 
1960 
1978 
i3ea 
19359 
2644 
2a1G 
2320 
22308 
2449 
2054 
2566 
2378 
2080 
2998 
2188 
2113 
2138 
21409 
2156 
2168 
2176 


Bo0g= 


QOrF= 


17D6 
L17ua 
i7vDA 
17DD 
1VEB 
LVES 

TES 
1YEG 
LTE? 
1TES 
17TEB 
LVEE 


1i7FG 
17F2 


17F3 
17FS 
L?FS 
1?7FS 
175A 


L7FC 
17FD 
1860G 
1893 
i8as 


ERROR=9 
t 
OKAY=SFF 

, 

3 
AESS15 MOV.EA LDX EAL 
38 SEC 
ADS415 LDA EA 
ED5215 SBC SA 
SUBDL?7 STA NUM 
BBG2 BCS MOVE.1L 
CA DEX 
35 SEC 
SA MOVE. L TXA 
EDSES15 SBC SATI 
BOBILITC STA NUM+F1 
Bugs BCS MOVNUM 

$ 
AIZS ER.RTN LDA #ERROR 
60 RTS 

5 

3 

3 

3 

3 

5 

$ 

3 

3 

3 

3 
AAAS MOUNUM LOY #3 
B999G8 LOOP.1 LDA GETPTR,Y 
45 PHA 
6B DLY 
1@F9 BPL LOOP.1 
38 SEC 
ADS315 LDA SA+S 
CDRBS17 CMP DEST+1L 
3848 BCC MOVEUP 
DG18 BNE MOVEDN 
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we we wh ws we 29 we we we 


@e we we 


MoVU.EA: 


MOVE BLOCK SPECIFIED BY SA, 


RETURN CODES: 


MOVNUM: MOVE BLOCK SPECIFIED BY SA, NUM, 


EA, DEST 


KEKBERRERKRERREKEREEREREEEAKRS EAE SEBEREERASR 


THIS RETURN CODE MEANS 
SA < EA, SO MOVE ABORTED. 
THIS RETURN CODE MEANS 
MOVE ACCOMPLISHED. 


SET NUM = ER - SA: 


If EA < SA, 
RETURN WITH ERRGR CODE. 


KHEKBEEEKEEEEEESBSEAEFEKERBRELBERDREBAEEBEDHSE EDS 


DEST. 


HEFEBRABPERHBEDELHKEBEBEEEDES KEBEEHESLEBABREBERBES 


SAVE ZERO FAGE BYTES THAT 
WILL BE CHANGED. 


IF DESTOSA, BRANCH TO MOVE-UP 


IF DEST<SA, BRANCH T 


21289 ; MOVE-DONN. 

2190 \8o7 ANS215 Loa sA 

2266 I8AA CORZ17 CMP DEST 

2219 180D 9336 BCC MOVEUP 

2229 180F DADE BNE MOVEDN IF DEST=SA, 

22239 1Sil ABBB OK.RTN LDY #0 RETURN BEARING "OKAY" CODE. 

2249 ; RESTORE ZERO PAGE BYTES 

2250 1813 68 LOOP.2 PLA THAT WERE CHANGED. 

Zz26G 18l4 sg2000 STA GETPTR,Y’ ’ 

2278 1817 cE INY 

2784 1818 cHa4 CPY #4 

2263 181A DAFT BNE LOOP.2 

2399 161C AFF LDA #OKAY RETURN W/°OKAY® CODE. 

2210 IG1E 6a RTS 

2320 ; 

2335 ; 

2248 ; 

2350 161F ZBA41S MOVEDN JSR LOPAGE SET PAGE POINTERS TO LOWEST 

2366 3 PAGES IN ORIGIN, DESTINATION 
; BLOCKS. 

2378 ; 

2386 ; 

2339 1822 RAAA LDY #0 INITIALIZE PAGE INDEX TO 

2488 ; BOTTOM OF PAGE. 

2419 ; 

2420 1624 AEBiI17 LDX NUM+L USE X TO COUNT THE NUMBER 
; OF PAGES TO MOVE. MORE THAN 
; ONE PAGE TO MOVE? 

2438 162? FOOE BEG LESSDN IF NOT, MOVE LESS THAN A 

2448 A PAGE. 

2458 ; 

2469 ; IF 50, 

2470 1829 B1G@ PAGEDN LDA (GETPTR),Y MOVE A PAGE DOIN, 

2489 182B 3182 STA (CPUTPTR),Y STARTING AT THE BOTTOM. 

2499 162D ca INY INCREMENT PAGE INDEX. 

25899 18z—E bars BNE PAGEDN IF PAGE NOT MOVED, MOVE 

2518 NEXT HYTE... 

2520) 

2538 1839 FEAL INC GETPTR+1 INCREMENT PAGE. POINTERS. 

2546 1832 ESOS INC PUTPTR4L 

2558 1034 CA DEX DECREMENT PAGE COUNT. 

2560 1835 par2 BNE PAGEDN IF A PAGE LEFT TO MOVE, 

2579 $ MOVE IT AS A PAGE. 

2559 ; 

2588 1837 68 LESSDN DEY 

26RG 16238 cs INY MOVE LESS THAN A PAGE 

251@ L839 B139 LDA CGETPTR),Y DOWN, STARTING AT THE 

2EZ9 183B 9142 STA (PUTPTR),Y BOTTOM. 

2538 185D CCBGL7 cPY NUM MOVED LAST BYTE? 

2646 1849 DOFS BNE LESSDUN+1 IF NOT, MOVE NEXT BYTE... 

26S 1842 401118 IMP OK.RTN IF SO, RETURN BEARING 

2660 ; "OKAY" CODE. 

267G ; 

2630 ; 

2692 ; 

27GA 1845 ADBL17 MOVEUP LDA NUM+F1L MORE THAN A PAGE TO MOVE? 

2710 18468 Fads BEQ LESSUP IF NOT, MOVE LESS THAN A 

2720 PAGE. 


323 


2738 
2740 
2750 
2760 
2778 
278G 
2798 
2808 
2818 
2828 
283g 
2848 
2850 
2868 
2878 
2880 
2890 
2900 
2919 
2920 
2930 
2944 
2950 
2S6G 
2979 
2980 
2396 
3000 
3aia 
3028 
3330 
3049 
3050 
3260 
3870 
3080 
3290 
31902 
3110 
3120 
3138 
314g 
Bisa 
316a 
3178 
318a 
3190 
320g 
3216 
3220 
3238 
3249 
3258 
3268 
3270 
3280 
3296 
33a 


164A 
184, 
1856 
1851 
1853 
1855 
1856 


1857 
1853 
185A 
1858 
18SE 
1366 
1862 


1863 
1864 
1367 


1869 
185A 
185B 
186E 
1is7@ 
1872 


L3o74 
1i8?’s 
1675 


TO MOVE MORE THAN A PAGE, 
SET PAGE POINTERS TO 
HIGHEST PAGES IN ORIGIN, 
DESTINATION BLOCKS. 


TO DO THIS, FIRST 

SET (X,Y) = NUM - SFF, 
CRELATIVE ADURESS OF 
HIGHEST PAGE IN A BLGCK. 3} 


we we ws 68 we we 68 we 8 et ee owe 


ACB117 LDY NUM+1L 
ADBBLT LGA NUM 
23 SEC 
ESFF SBC #3FF 
BSL BCS WNEXT.L 
33 DEY 
RA NEXT.L TAX 
+ 
4 NOW CX,Y) - NUM - SFF. 
; AX IS LOW BYTE, Y IS HIGH BYTE 
3 
3 
6403 STY PUTPTRtIL 
8A THA 
18 CLC 
605215 ADC SA 
8508 STA GETPTR 
S661 BCC NEXT.2 
CS INY 
3 
933 NEXT.2 TYR 
5D5315 RDC SATL 
SoGL STA GETPTRt1L 


PTR=SA+NUM-SFF . 
CLAST PAGE IN SOURCE BLOCK. ) 


SA TxA 

18 CLC 

5DBZ17 ADC DEST 
65902 STA PUTPTR 
9802 BCC WEXT.3 
Eod3 INC PUTPTRt1 


A543 NEXT.3 LBA PUTPTR+1 

60UR317 ADC DEST+1 

S553 STA PUTPTR+L 
NOW PUTPTR=BEST+HUM-SFF. 
(LAST PAGE IN GEST BLOCK. 3} 


324 BEYOND GAMES 


33i@ 3 

33ecu 3 

3354 LTB AEBLI1T LOK NUM+L LOAD K WITH HUMBER OF 
3349 3 FAGES TO MOVE. 

S25 i ; 

3360 L87E ASFF PAGELP LDY #3FF SET PAGE INDEX TO TOP OF 
3378 ; PAGE. ; 
3366 1286@ B1S6 LOOP.3 LDA CGETPTRI,Y MOVE A PAGE UP, STARTING 
3328 ise2e G1G2 STA CPUTPTR3I,Y AT THE TOP CF THE BLOCK. 
3468 1854 88 HEY DECREMENT PAGE INDEX. 
3418 ABOUT TO MOVE LAST BYTE 
342 IN PAGE? 

34324 1885 DEFg BNE LGOOP.3 IF NOT, HANDLE NEXT BYTE. 
3446 AS BcFORE. 

3458 

S4E£ 

3479 

3456 LEST BLaB LDA CGETPTR},Y IF SO, MOVE THIS BYTE FROM 
3456 1269 9g1igf2 STA CFUTPTR},Y SOURCE TO DESTINATION. 
3563 L8SB C661 DEC GETPTRtL 

35i0 16885 C683 DEC PUTPTRE1L DECREMENT PAGE POINTERS. 
3520 1S0F CA DEX DECREMENT PAGE COUNTER. 
S53@ 1696 DBEC BNE PAGEUP IF A PAGE LEFT TO MOVE, 
3540 ; MOVE IT AS A PAGE.... 
355% 5 

3563 ; 

S35r@ 1882 20A416 LESSUP JSR LGPAGE MOVE LESS THAN A PAGE UP, 
35549 1895 ACBELT LDY NUM STARTING AT THE TOP. 
3558 3 

3616 18398 Bibg MOVE.6 LDA CGETPTRI,Y COPY A BYTE FROM ORIGIN 
3620 165A 3182 STA CPUTPTRI,Y TO DESTINATION. 

3838 189SC 85 DEY DECREMENT PAGE INDEX. 
2649 18830 Carr CPY #5FF COPIED THE LAST BYTE? 
S650 189F DGr7 BNE HOVE.S IF NOT, HANDLE AS BEFORE... 
SBBE 1BAL 4C1118 JMP OK.RTN IF SO, RETURN BEARING 
3673 ; "OKAY" CODE. 

26585 ; 

SB98 ; 

376 5 

3714 ; 

2720 3 

3739) 3 

37448 4 

3753 ; 

37659 H 

3770 H 

378 ; 

27S 5 EBEHEEDESDSEHEREKKLEKEDEREKSESLESEREESEKRESGHKSS 
36503 ; 

38168 3 SET FAGE POINTERS TO BOTTOM OF 

382 ; ORIGIN, DESTINATION BLOCKS. 

3324 3 

38483 > ERRABELHHHHHE SERRE ESEREKHERBEERAEREE DHEBRESS 
3050) ; 

3858 H 

3378 ; 

388. ; 

s8Sn ; 
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390a 
3316 
3526 
3334 
3944 
33959 
3960 
39798 
3388 
3934 
4000 
40108 
42320 
4236 
46460 
40568 
4060 
4070 
4658 
4438 
41¢0 
4116 
412u 
4136 
4140 
4159 
41528 
4178 
4184 
4196 
420G 
4216 
4220 
4230 
4246 
4254 
4250 
427@ 
4284 
4299 
4340 
4310 
4312 
4318 
4326 
4325 
4320 
4320 
4326 
4320 
4326 
4326 
4329 
4324 
4320 
4320 
4320 
4320 


13A4 
LSAT 
13A3 
LBAC 


LGARE 
1GB1L 
18B3 
1356 


15BS 


1859 
16BC 
LBBF 
16Cg 
iseci 
16C2 
18C3 
10c4 
18CS 
18C65 
18C7 
18C8 


18cg. 


18CA 
18CB 
18CC 
18CD 
18ce 
1LECF 


ADS215 LOPAGE LDA 


8580 
ADS315 
6501 


ADB2Z17 
ooH2 
ADB3ILT 
8593 
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2880814 SET.DA JSR TVT.ON 


206414 
7F 
aD 
BA 
53 
45 
54 
20 
44 
45 
53 
S4 
49 
4E 
41 
54 
49 
4F 
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=25 w68 


28 ws «ab #88 ws we 


we 


ae 28 ws we 


we wp S4 wo VP we wa we we we we OB we Ne 


STA 
LDA 
STR 


LDA 
STA 
LDA 
STA 


RTS 


SA 
GETPTR 
SAt+1 
GETPTR+i 


DEST 
PUTPTR 
DEST+1 
PUTPTR+1 


EREEFEELREDEEBRFESEEKLES HEHE FRSEBERSEABAALEFSLEES 


LET 


USER SET DESTINATION ADDRESS 


ERE SHLREBRKKEREREREZESEFABEXEASERESSSRSEHSPSAESES 


JSR 


LET USER SET DESTINATION 
PRINT: 


~-BYTE TEAX,CR,LE 


BYTE ’SET DESTINATION ANG PRESS Q.’ 


4320 
4326 
4328 
4228 
4320 
4329 
4329 
329 
4320 
43920 
4220 
4328 
4328 
4329 
4338 
4349 
4259 
A369 
375 
4308 
439a 
4495 


4E 
20 

41 

4E. 

44 

20 

5a 

52 

45 

53 

53 

2a 

Sti 

2E 

FF 

2Oa712 

ADBS12 BGAHERE 
SRB217 
ADa612 
SUB3L7 


6G 


-BYTE ETH 

JSR VIStON LET USER S 
LDA SELECT SET DEST=5 
STA BEST 

LOA SELECT+1 

STA DEST+L 


T AN ADDRESS. 


mm 


RTS RETURN WITH DEST=SELECT. 
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Appendix C10: 


Simple Text Editor (Top Level and 
Display Subroutines) 


19 
20 
38 
4B 
59 
15) 
72 
Fal) 
cI) 
190 
11G 
120 
138 
14g 
159 
169 
179 
18a 
199 
268 
219 
2z0 
232 
240 
258 
260 
27 
280 
238 
3aG 
312 
32a 
328 
348 
358 
360 
374 
3en 
330 
409 
419 
420 


434 2 


440 
452 
460 
4730 
460 
494 
SBhg 
518 
$26 

Gi) 
548 
SSG 
S69 
$7 
583 


B949= 
AGF = 


we we we 42 22 ws OS wP BO we VE we wh OP we CF we BE wh WE OF we WF Ok lk ee ee 8 we lak we we ee le 


ae 26 we CO we 2h 28 wt we we et 


APPENDIX C1@: ASSEMBLER LISTING OF 
A SIMPLE TEXT EDITOR 
TOP LEVEL AND DISPLAY SUBROUTINES 


SEE CHAPTER L1 OF BEYOND GAMES: SYSTEMS 
SOFTWARE FOR YOUR 6562 PERSONAL COMPUTER 


BY KEN SKIER 


FESHKKHKHABFDSDHSSEHKEAFESHARHFSEAFAEESSFESARSPHS 


CONSTANTS 


RHRKBHHBHRDHBHKEEHSEDSPDEEHEAEESHSSEAESASESSEESES 


CR = OD 


LF = 2@A 


TEX = S7F 


ETX = SFF 


INSCHR=’ I 
OURCHR=’ O 


CARRIAGE RETURN. 

LINE FEED. 

THIS CHARACTER MUST START 
ANY MESSAGE. 


THIS CHARACTER MUST END 
ANY MESSAGE. 


GRAPHIC FOR INSERT MODE 
GRAPHIC FOR OVERSTRIKE MODE. 


EHEMEEKLMEBESLYEEEBEDAREBRLEEHAEEESHSESEEAKESEAEEERS 


EXTERNAL ADDRESSES 
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599 
60H 
51g 
B22 
6374 
646 
ahd) 
663 
67 
E686 
694 
76G 
718 
€26 
73G 
748 
re~57 
786 
77a 
780 
738 
Ban 
818 
820 
836 
643 
BSH 
SEG 
S73 
638 
639 
3350 
918 
S29 
93 
940 
353 
SEZ 
978 
588 
396 
1640 
1516 
16246 
1a20 
1848 
1556 
1HEB 
1679 
1632 
1636 
iio 
1116 
1126 
11355 
1148 
1159 
11668 
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p= 


fs 
ew 8 
i 


W Oh) 


b+ bo 


we we we 


we we 


aa we 


wes we 


SREEEKEREBEEEBERERERHKEREEREEEEEBRELESEDRERGES 


TU. PTR=0 POINTER TO A SCREEN ADDRESS. 
PARAMS=3 1098 SYSTEM DATA BLOCK. 


TVUCOLS=PARAMNS+3 
TURGWS=PARAMS+4 
ARROW=PARAMNS+?7 


TVSUBS=$1160 

CLR. XY=TVSUBS+$13 
TVUHOME=TUSUBS+32B 
TVTORY=TUSUBS+$3C 
TUDOWN=TYUSUBS+$76 
TUSKIP=TUSURS+S7F 
TYUPLUS=TUSUBS+381 
TV. PUT=TUSUBS+$95 
VYUBYTE=TVSUBS+$A3S 
TVPUSH=TUSUBS+8C4 
TV. POP=TVSUBS+SD3 


VNPAGE=$1288 STARTING PAGE OF VISIBLE 
MONITOR CODE. 

SELECT=VUMPAGE+S 

GET. SL=VMPAGE+S94 

INC. SL=UMPAGE+S$ 190 

DEC. SL=VMPRGETS1L1A 


PRPAGE=$ 1460 STARTING PAGE GF PRINT 
UTILITIES. 

TVT.ON=PRPAGE+S 

TUTOF F =PRPAGE+$B2E 

PR.ON =PRPAGE+E14 

PR. OFF=PRPAGE+S iA 

PR. CHR=PRPAGE+S49 

PRINT = =PRPAGE+SE4 

PUSHSL=PRPAGE+S$112 

FOP. SL=PRPAGE+S12b 


HEX. PG=21586 ADDRESS OF PAGE IN FIHICH 
HEXDUMP CODE STARTS. 


SA=HEA.PG+952 
ER=SA+t2 
SETADS=HEX.PG+S3E9 
NEXTSL=HEX.PO+S283 
GOTOSAR=HEX. PG+S2AGB 


1170 1£60= 
1160 1ECO= 


1190 
1260 
1216 
12208 
1238 
1240 
12598 
1250 
1276 
1286 
12536 
13600 
1310 
1529 
1336 
1346 
1559 
1360 
1376 
13584 
12998 
1450 
1416 
1426 
1436 
1443 
1456 
1456 
14708 
1486 
14358 
158Y 
1519 
1520 
1536 
1548 
15568 
1560 
15708 
1589 
1556 
1566 
16iG 
1626 
1634 
1644 
165G 
16668 
1674 
1658 
1634 
176o 
1716 
1724 
1738 
1748 


LEGG 


1E0G 
1EG1 


1E62 
LEGS 


1E98 
1ES5 


1EGC 
1EOD 


46 
44 


ee ee |) ee ee 


we ws We wt lw le lw OS 


EDPAGE=$1Ea9 


STARTING PAGE OF EDITOR. 


EDITIT=EDPAGE+$C8 


EHRABREREEKEE EBB EEBEEEBEHEEE DEERE HRP EBEEREERK 


VARIABLES 


HEBER BREE ES FEE EREBERBEEEEHESEEHE ESBS GEEESES 


¥*=EDPAGE 


3 
COUNTR .BYTE @ 
ENMODE .BYTE @ 


on BS WP we BP we we MS 


e 26 wn we we we we 


COUNTER USED BY LINE.2. 
FLAG: GB=OVERSTRIKE, 
1=LTHNSERT. 


FEEL KBREDEDKEDASEEREBEEESEFSEADHSSEKSDGFAESESREFEPHSES 


TEXT EDITOR: TOP LEVEL 


HKEHKEHRKEERHKEREERS EEBEFEBKEBRESTEBEBA CRESS EKDAEKDSE 


294F iE EDITOR JSR SETBUF 
24371E EDLOOP JSR SHOWIT 


2OCB1E 


18 
18 
SAF6 


e 
3 


we 86 wa we vs 26 ws we 8B wh Os we we 


JSR EDITIT 


CLC 
CLC 
BCC EDLOOP 


INITIALIZE BUFFER POINTERS. 
SHOW USER A PORTION OF 

EDIT BUFFER. 

LET THE USER EDIT THE BUFFER 
OR MOVE ABOUT WITHIN IT. 


LOOP BACK TO SHOW THE 
CURRENT TEXT. 


LEEBLEEELEEEHBKEHEEBK EERE ES HEE SEEBRASERELHEESS 


INITIALIZE BUFFER POINTERS 
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1750 
1768 
177a 
17308 
1730 
1860 
181G 
1824 
1836 
18348 
1833 
163a 
13844 
1840 
1848 
1846 
1846 
1846 
1846 
1848 
1844 
1845 
1649 
1849 
i846 
1846 
1846 
1844 
18468 
1848 
1348 
1850 
185a 
13859 
1858 
1860 
1LS7¢ 
isna 
1694 
19504 
191@ 
1320 
1938 
1944 
1959 
1959 
197@ 
13808 
1358 
2098 
2620 
2638 
2046 
2453 
24056 
2a7G 
2563 
25950 


LEGF 
LE12 
ELS 
1E16 
1E17 
1E18 
1E19 
1E1A 
1E1B 
LELC 
LELD 
1ELE 
LELF 
1E26 
1E21 
1EZ2 
1E23 
1E24 
1E25 
JEZ6 
LE2T 
LE28 
1EZS 
LEA 
1E2B 
L1E2C 
1E2D 
LEZE 
LE2F 
1E30 


1E33 
1E36 


1E37 


280814 
206414 
7F 
@D 
aA 
aA 
S3 
45 
S4 
20 
55 
58 
20 
45 
44 
49 
54 
20 
42 
5S 
45 
46 
45 
52 
2E 
BD 
BA 
BA 
FF 
296915 


2BAGL7 
6G 


26C411 
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KEBEEKEEREREELEREBEKRESDHEEHHEESEEREBRELEBRAEDSABRSESH 


R @6 8B 68 we BO 


SETBUF JSR TVT.ON SELECT SCREEN. 
JSR PRINT: DISPLAY “SET UP EDIT BUFFER. ”* 
~-BYTE TEX, CR,LF, LF 
~-BYTE ’SET UP EDIT BUFFER. 
-BYTE CR,LF,LF,ETX 
JSR SETADS LET USER SET LOCATION AND 
3 SIZE OF EDIT BUFFER. 
JSR GOTOSA SET SELECT=START OF BUFFER. 
RTS RETURN TO CALLER. 
3 
3 
3 
3 
5 ERBEREDBEBRESEREERERH EK EEEERERESEHEHBEEEFELEEHRERDE 
, 
3 DISPLAY A PORTION OF EDIT BUFFER 
5 KKERERREEDEDERAEKREEBESHREREEBEEGEHEBESEBRYBERGEEH 
3 
3 
3 
SHOWIT JSR TYPUSH SAVE THE ZERO PAGE BYTES 


H WE’ LL USE. 


2128 
2118 
Z212h 
2138 
2148 
2150 
2169 
2ira 
21868 
2150 
2200 
2210 
2220 
2238 
2248 
2258 
Z2bu 
227o 
22380 
2298 
2350 
2318 
2325 
2338 
2348 
2354 
2350 
2370 
2389 
2399 
2460 
24108 
2426 
24248 
24409 
2458 
2453 
24708 
2459 
24393 
2598 
2S1G 
2528 
2538 
2548 
2556 
25860 
2573 
2586 
2so08 
2583 
265i 
262 

2639 
25648 
2650 
266@ 
2876 


LESE 
1£61 
LE64 
JESS 
LE65 
LES? 


LE6S 
LE6B 
JE6C 


LE6E 
1E71 


1E74 


2a2Bii 


AEBSIB 
fFilG3 
2H1i311 


262Bii 


ZAa7G6IL 


z4c411 
2ZaS5E1E 


240311 


2o7611 


203831E 


240311 
60 


web me: ya WE 


“25 88 we we we ws PF wt ws OF wh we we BO we MS le 


JSR 


LOX 
LOUY 
JSR 


JSR 


JSR 


JSR 
JSR 


JSR 


JSR 


JSR 


JSR 
RTS 


TUHOME 


TUCOLS 
#33 

CLR.XY 
TVHOME 
TUBOVWN 


TUPUSH 
LINE.2 


TU. POP 


TUDOWN 


LINE.3 


TU. POP 


SET HOME POSITION OF EDIT 
DISPLAY. 


CLEAR THREE ROWS FOR 
THE EDIT DISPLAY. 


RESTORE TV.PTR TO HOME 
POSITION OF EDIT DISPLAY. 
SET TY.PTR TO BEGINNING 
OF LINE THO AND SAVE IT. 
DISPLAY TEXT IN LINE THO. 


SET TV.PTR TO BEGINNING OF 
OF THIRD LINE OF EDIT 
DISPLAY. 

DISPLAY THIRD LINE OF EDIT 
DISPLAY. 


RESTORE ZERO PAGE BYTES USEU. 


RETURN TO CALLER, WITH EDIT 
DISPLAY ON SCREEN, REST OF 
SCREEN UNCHANGED, AND 2cRO 
PAGE PRESERVED. 


RELA BBERBKERAKBKEEEEEEDEARHEERBKREK ERD HEBLEKS HS 


DISPLAY TEXT LINE 


KH HE DEEES EERE REELEBRDEELD SF EERHSEERKEDSESEAEES 


2601215 LINE.2 JSR 


ADBZ319 
4A 
AA 
CA 
cA 


LDA 
LSR 
TAX 
DEA 
DEX 


2G1LAL3 LOGP.1 JSR 


CA 
LarFA 


ADGB319 
SUSGLE 


LDA 
STA 


263412 LOOP.2 JSR 


PUSHSL 
TVCOLS 
A 


LOoOP.1 


TYVCOLS 
COUNTR 


GET.SL 


SAVE SELECT POINTER. 
SET X EQUAL TO 
HALF THE WIDTH 
OF THE SCREEN. 


DECREMENT SELECT... 
.2.X% TIMES. 


INITIALIZE COLNTR. 

CHE’ LE DISPLAY TVUCOLS 
CHARACTERS. ) 

GET A CHARACTER FROM BUFFER. 
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268g 
2699 
27ug 
271GB 
2728 
2738 
2740 
2758 
2758 
2778 
2730 
2738 
2804 
2318 
2829 

2838 
23428 
2esa 
2868 
2878 
2888 
2a30 
2Saa 
Z91G 
22328 
2936 
2348 

2958 
2558 
2978 
2583 
27938) 
3ARg 
SA1g 
3922 
320 
3049 

3asa 

30608 

3878 
3089 
32388 
3198 
3118 
3129 
3128 
3149 
3156 
SLED 
317Ta 
3184 

31948 
3226 
3219 
3228 
323g 

3249 
3252 


LET? 
LETA 
LED 


LEG 
1ES3 


LESS 
1E&8 


1Ee3 
1ESsc 
1E6 

LEGF 


1ES2 
1E35 
LES? 


1ES3 
LESB 
LESe 
LESE 
LEAD 
1ERS 
LEAS 


1ERS 
LEAS 


LEAE 
IEBG 


1EBS 
lERS 
LERS 
LEEC 


LEBF 


269B11 
e2O7Fril 
26CU13 


CEBSLE 
iSEF 


202B15 
14) 


ADS319 
4A 
ESn2 
25111 


ROUBLLE 
C51 
0ge85 


Aa49 
18 
Sea2 
AS4F 
2USE11 
ASB! 
203111 


ABA? 1B 
Z2OSB11 


ASBZ 
2O0slli 


ADDS12 
2AASLL 
ANDASiI2 
2BASLI 


60 
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JSR 
JSR 
JSR 


DEC 
BPL 


20 wb 


JSR 
RTS 


ee we we 82 we et we we OA OP ek se 8 


et we wa 


LINE.3 LDA 
LSR 
SBC 


JSR 


ash we wa 


LDA 
CMP 
BNE 


LOR 
CLC 
BCC 
LDA 
JSR 
LUA 
JSR 


CUMODE 
TVPODE 


LDA 
JSR 


LDA 
JSR 


as we 


LDA 
JSR 
LOR 
JSR 


RTS 


TY. PUT 
TYVSKIP 
INC. SL 


COUNTR 
LOOP .2 


POP. SL 


PUT IT ON SCREEN. 

GO TO NEXT SCREEN POSITION. 
ADVANCE TO NEXT BYTE IN 
BUFFER. 

DONE LAST CHARACTER IN ROW? 
IF NOT, DO NEAT CHARACTER. 


RESTORE SELECT FROM STACK. 
RETURN TO CALLER. 


KEBEFKEEERKEKFSEASKERKEERKABLEBHRESHESEAFABHSESSES 


DISPLAY STATUS LINE 


TYCOLS 
A 

#2 
TVUPLUS 


EDRMOBE 
#1 
QOVMNODE 


INSCHR 


TVUMOBE 
#OURCHR 
TY.PUT 
#2 
TYPLUS 


ARROW 
TU. PUT 


2 
TYVPLUS 


SELECT+1L£ 
VUBYTE 
SELECT 
VYUBYTE 


REBELDE PERKSPREREBHHEBEEEHESEBEEDEBS EREPERHSES 


SELECT CENTER POSITION... 
=TUCOLS/“2 

A=€ TUCOLS/2 3-2 

NOM TU.PTR IS POINTING TWO 

CHARACTERS TO THE LEFT OF 
CENTER OF LINE 3 OF THE 

EDIT DISPLAY. 

WHAT IS CURRENT MODE? 

IS iT INSERT MODE? 


IF NOT, IT MUST BE OVERSTRIKE 
MODE. 
IF SO, GET INSERT GRAPHIC. 


LOAD A WYOVERSTRIKE CHARACTER. 
PUT MODE GRAPHIC ON SCREEN. 
MOVE THO POSITIGNS TO THE 
RIGHT, SO TYV.PTR POINTS TO 
CENTER OF LINE 3 OF EDIT 
DISFLAY. 

DISPLAY AN UP-ARROW HERE. 


GO TWO POSITIONS TO THE 
RIGHT, SO TV.PTR POINTS TO 
FIELD RESERVED FOR THE 


ADOIRESS OF THE CURRENT CHARACTER 


DISPLAY ADDRESS OF CURRENT 


RETURN TO CALLER. 


Appendix Cl I: 


Simple Text Editor (EDITIT 
Subroutine) 
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182 
119 
129 
132 
149 
159 
16a 
173 
18a 
198 
220 
219 
229 
230 
248 
256 
25a 
278 
288 
295 
328 
319 
229 
338 
340 
3529 GSEn= 
350 
379 aBGA= 
SEG 
332 
400 QQ7F= 
419 
420 
430 OOFF= 
440 
45G 
468 
47a 
480 
439 
566 
510 
528 
539 
542 
SSB 
SEO 
S7Q 


26 we we 0S wh we we 29 we we yes we 


ee wt BO we 8H we ne OF ws 8 lw (wt 


at @t we 40 we we @4 we Bt we Be C8 ws wus 


APPENDIX CilL: ASSEMBLER LISTING OF 
A SIMPLE TEXT EDITOR 
EDITIT SUBROUTINE 


SEE CHAPTER 11 OF BEYOND GAMES: SYSTEMS 
SOFTWARE FOR YOUR 6582 PERSONAL COMPUTER 


BY KEN SKIER 


KEHKLEBREKEGE HH EKREKEEEDEREBBREDERHBKAESHEEMEDRS 


COHSTANTS 


FRESH KHEKABEASBEHBE EEK EEHRERBHEEKSEESEEAELBBERDS 


CR = $8D CARRIAGE RETURN. 
LF = SOA LINE FEED. 
TEX = B7F THIS CHARACTER MUST START 


ANY MESSAGE. 


ETA 


SFF THIS CHARACTER MUST END 
ANY MESSAGE. 


PEHSEAEMENEABHEELREERPSHEBKEREKEEESEAASEDEBRKAHES 


EXTERNAL ADDRESSES 
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SER S$ SREBKA BE KHEHEEVAKHEDHDY BEHEBESES EEKEELEERERERESES 
a7 3 
605 3 
619 ’ 
28 ; 
BOG 3 
B40 L2he= UMPAGE=$8 1268 STARTING PAGE OF VISIBLE 
650 MONITOR CODE. 
655 1265= SELECTSVUMPAGE+S 
67! 1207= VISMNON=VIIPAGE+7 
6586 1234= GET. SL=UMPAGE+$94 
693 12ba= GETKEY=VUMPAGE+$E@0 
760 13500D= INC. SL=UPrPAGE+412D 
716 131R= BEC. SL=\IMPAGE+S11A 
f29 1392D= PUT .SL=VMPAGE+$12D 
7aB 
742 
TSB 1480= PRPAGE=$1480 STARTING PAGE OF PRINT 
763 UTILITIES. 
TBS 1414= PR.ON =PRPAGE+S$14 
TE? 1L4lA= PR. OFF=PRPAGE+S$1A—A 
T7B 1440= PR. CHR=PRPAGE+S$46 
VEO 14E4= PRINT: =PRPAGE+SE4 
f9&G 1Sle= PUSHSL=PRPAGE+$ 112 
GOA LS2ZE= POP .SL=PRPAGE+S 125 
616 
S2ia 
e230 1LSkig= HEX. PG=31560 ADDRESS OF PAGE IN WHICH 
B45 HEXDUMP CODE STARTS. 
856 
SHE 1SS2= SA=HEX. FG+SS2 
SrA Los4= EA=SATZ 
oa L6aT= SAHERE=HEA.PG+S167 
QS3a i7as= NEXTSL=HEA. PG+3283 
Sain LTAG= GOTOSAH=HEX. PG+$2ZAB 
S16 
923 
3sG iv7ype= MOVERS=$17B6 START OF MOVE OBJECT CODE. 
944 17B2= DEST =MNOVERS+2 
3593 17D6= MOU. EA=MOVERS+$26 
G68 Leee= DAHERE=MNOVERS+9 132 
378 
S86 1ESG= EDFAGE=S158a STARTING PAGE OF EDITOR. 
SSH LECG= EDKEYS=EDPAGE+SCQ 
1624 ; 
1518 3 
fee 3 
163% ; 
1649 ; 
1BE6 3 
IGES $  EKESEA EERE HERBSESHHEKEHEEHERE SEES HEDASHEEBBAEBED 
lava ; 
155 ; VARIABLES 
1856 ; 
1186 5 ERE KRESS EKER AEEREER ERAGE HEE ERERKE DE EERESESS 
1118 5 
1128 ; 
113% 3 
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11465 
1159 
1159 
i173 
iiseB 
11359 
12656 
1216 
1225 
1220 
1240 
1259 
1l2s5f 
127g 
1280 
129% 
130&G 
3108 
1326 
1335 
1348 
1356 
1360 
137G 
1388 
13398 
1469 
1419 
1420 
1433 
1448 
14565 
14653 
1476 
1480 
41495 
1549 
1516 
1525 
1528 
1548 
I55¢ 
1566 
1S7oB 
1559 
1556 
1658 
1619 
1628 
1632 
1640 
16S4a 
l1E69 
1678 
1688 
1696 
1708 
171G 


LEBi= 


1ECS 


1ECS 86 


1ECi G3 


1EC2 SE 


LEC3 3C 


1EC4 108 


1ECS TF 


1EC6 Sl 


we we we 


7 


SHKY 


Cy we We an we we FO we we Be ep Os we Os MP us we we Ue 


3 


DEKY 


JT] ws wo ws we 4 


A 


ATKY 


Tw 
AD we we we we Ft) ee Wh ue we ws 
Mm 
< 
A 
~ 


“0 


QUITKY 


we BS ws (— 8o wa ee we eh FO wk we we 


*#=EDPAGE 


EDMODE=EDPAGE+L 


*#=EDKEYS 


G=OVERSTRIKE MODE. 
1=INSERT. 


EDIT FUNCTION KEYS 


~- BYTE 


~BYTE 


~BYTE 


BYTE 


~-BYTE 


~BYTE 


~BYTE 


$6 


$BS 


’>’ 


4<? 


$1G 


- O’ 


THE EDITOR RECOGNIZES THE 


FOLLOWING KEYS AS FUNCTION KEYS. 


ASSIGN A FUNCTION TO A KEY 
BY STORING THE DESTREDB KEY 
CODE FROM YOUR SYSTEM S 
KEYHANDLER INTO ONE OF THE 
FOLLOWING DATA BYTES: 


THIS KEY FLUSHES THE 
BUFFER OF ANY TEAT. $06 IS 
CONTROL-F. THUS, CONTROL-F 
TO FLUSH THE BUFFER. 


THIS KEY CAUSES THE EDIT 

TO CHANGE MODES. FROM INSERT 
JO OVERSTRIKE, AND VICE VERSA. 
$03 IS CONTROL-C. THUS, 
CONTROL-C TO Change modes. 


THIS KEY SELECTS THE NEAT 
CHARACTER IN THE BUTFER. 


SUBSTITUTE RIGHT-ARROW IF 
YOUR KEYBOARD HAS IT. 


SELECT PREVIOUS CHARACTER 
IN THE BUFFER. SUBSTITUTE 
LEFT-ARROW IF YOUR KEYBOARD 
HAS IT. 


THIS KEY PRINTS THE BUFFER. 
CONTROL-P 
to Print the buffer. 


THIS KEY RUES OUT THE 
CURRENT CHARACTER. IF YOU 


HAVE DELETE KEY BUT NOT RUBOUT, 


USE YOUR SYSTEM S CODE FCR 
THE DELETE KEY. 


THO QUIT KEYS IN A ROW 
CAUSE THE EDITOR TO RETURN 
TO ITS CALLER. 
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1720 
1736 
1746 
L759 
175d 
177g 
1786 
1790 
1800 
1616 
1826 
1630 
1845 
185G 
1864 
1876 
1658 
18390 
1294 
19514 
1920 
13530 
1948 
1956 
1956 
is7ga 
1386 
1959 
ZhG6B8 
26018 
24298 
2936 
22460 
20593 
2HE8 
2Aa7a 
208u 
2634 
2104 
2118 
2128 
‘2138 
2149 
2158 
2166 
2179 
2163 
2194 
229B 
221i 
2228 
2234 
2249 
22568 
2266 
2274 
22eH 
22390 


1EC? 


1ECS 
1ECB 
1ECE 


1EDB9 
1ED1 


LED4 
LED? 


LEDS 


LEDA 
LEDB 
LEDC 


1EDB 
1EEG 


LEEL 


iEE4 


OTHER VARIABLES: 


THIS BYTE WSED BY EDITIT. 


HAD HALES HEHKAHEBHEEAAKEEAEE ES ESERESHEBEABALALES 


TEXT EDITOR: UPDATE SUBRCUTINE 


GETKEY 


QUITKY 
DO. KEY 


GETKEY 


QUITKY 
NOTEND 


TEMPCH 


DO. KEY 


; 

; 

3 

r 

; 

; 
aN) TEMPCH .BYTE G 

; 

; 

; 

; 

; 

; 

; 

; 

; 

; 

; 
29E912 EDITIT JSR 
CDCS1E CMP 
17 BNE 
43 PHA 
2REB12 ISR 
CDCSiE CMP 
pee4 BNE 

; 

; 
68 ENDEDT PLA 

; 
68 PLA 
68 PLA 
68 RTS 

; 
SDC7LE NOTEND STA 
68 PLA 
2Gz71E ISR 
ADC7LE LDA 
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TEMPCH 


KEBFEAPDAEREBSEKEKEKGEBEKEEEHKEEBREASEREBEBEREBAKHEBRALS 


GET A KEYSTROKE FROM USER 
WSER. 

IS IT THE "OUIT" KEY? 

IF NOT, DO WHAT THE KEY 
REQUIRES. 


IF IT IS THE “QUIT” KEY, SAVE 
IT AND GET A NEW KEY FROM 
USER. 

IS THIS A "QUIT" KEY, TOO? 

IF NOT, THEN THIS IS NOT THE 
END OF THE EDIT SESSION. 


END THE EDT SESSION? 

POP FIRST “QUIT” KEY FROM 
STACK. 

POP RETURN ADDRESS TO 
EDITOR’ S TOP LEVEL. 
RETURN TO EDITOR’ S CALLER. 


SAYE TH KEY THAT FOLLOWED 

THE “QUIT” KEY. 

POP FIRST “QUIT KEY FROM STACK. 
DO WHAT IT REGUIRES. 

RECOVER THE KEY THAT FOLLGIHED 
THE "QUIT" KEY. 


*“BO.KEY" DOES WHAT THE KEY 
IN THE ACCUMULATOR REQUIRES: 


) w Ga) td 


ae oom sy 


MY N MN HN 
re) 
Ut 
® 


24h 
Z41G 
2426 
Z4su 
2440 
2454 
2464 
2470 
2450 
2450 
2560 


2514 


NONMHNnwO HC 
Ulf ol Mr OO co w -y ! 


ONaown oan & 


Gl) =) my 


sy 8 


Lan) 
= 


NN ANN ANN ODOT MD 
oo 


On Ooh i Ne DD Ep 
cl 


3 


NNNNNNNNNNNNNNM NNN NN POND 
Yoog 


1F24 
\F27 


LF29 
LFec 


LF2D 


rT COCLIE 


DEE 
CEBLLIE 
1Lans 
ASSL 
eDBlie 
63 


CHC2LE 


D204 


2ATSLF 


6a 


CDCBALE 
DUb4 


24B41F 
62 


s] 
GO. KEY 


DO.END 


IFNEAT 


3 
$ 
IFFPREYV 


3 
3 
IF. RUB 


we we 


IF .PRT 


ae 


MUS 
CUR 


© we we we wt we we MO we 


OK. 
T BE 


roy 


AEG LIE CHARKY LDA 


Fow4 


2B341F 
1) 


BEQ 


5 | 
202013 STRIKE JSR 


MODEKY 
TF MEAT 
EDMODE 
DO.ENG 
tL 

EDMODE 


NEXTKY 
IF PREV 


NEXTCH 


PREUKY 
IF .RUB 
PREVSL 


RUBKEY 
IF .PRT 
DELETE 


PRTKEY 
IFFLSH 


FE PRTBUF 


FLSHKY 
CHARKY 


FLUSH 


IT’S NOT AN EDITOR FUNCTION KEY, 
A CHARACTER KEY. 


IS IT THE “CHANGE MODE” KEY? 
IF NOT, PERFORM NEXT TEST. 
IF 50, CHANGE THE EDITOR’ S 
MODE. 


RETURN TO CALLER. 


IS IT THE 
JF NOT, 


"NEXT" KEY? 
PERFORM NEAT TEST. 


If SO, ADVANCE TO NEXT 
CHARACTER... 
»-.AND RETURN. 


IS IT THE "PREVIBUS® KEY? 

IF NOT, FERFORM NEXT TEST. 
iF SO, BACK UP TO PREVIOUS 
CHARACTER AND RETURN. 


IS IT THE “RUBOUT" KEY? 
IF NOT, PERFORM NEXT TEST. 
IF SO, DELETE CURRENT 
CHARACTER AND RETURN. 


IS IT THE "PRINT" KEY? 

IF NOT, PERFORM HEXT TEST. 
IF SO, PRINT THE BUFFER... 
e. AND RETURN. 


IS IT THE "FLUSH" KEY? 
IF NOT, IT MUST BE A CHARACTER 
KEY. 


IF SO, FLUSH THE BUFFER. 
AND RETURN. 


SO IT 
DEPENDING ON THE 


MODE, We’ LL EITHER INSERT OR QUERSTRIKE 


EDMORE 
STRIKE 


INSERT 


PUT.SL 


THE CURRENT CHARACTER. 


ARE VE IN OVERSTRIKE MODE? 

IF SO, OVERSTRIKE THE CURRENT 
CHARACTER. 

IF NOT, INSERT THE CHARACTER. 
RETURN. 


REPLACE CURRENT CHARACTER 
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23084 3 WITH NEW CHARACTER. 


2890 if 30 248317 JSR NEXTSL SELECT NEXT CHARACTER. 
290@ 1F33 69 RTS RETURN. 

2310 ; 

29260 3 

2338 3 

2346 > 

2956 5 

2360 1F34 48 INSERT PHA SAVE THE CHARACTER TO BE 
2976 ; INSERTED, WHILE WE MAKE ROOM 
29848 5 FOR IT IN THE BUFFER... 
2996 1F35 201215 JSR PUSHSL SAVE THE CURRENT RODRESS. 
3060 1F38 ADS315 LDA SAt+L SAVE THE BUFFER’ S ABDRESS. 
3616 1IF3SB 48 PHA 

3026 iF3C ARSZ1S LDA SA 

3030 1F3SF 45 PHA 

3944 ; 

32508 3 

3660 1F4@ ADSSIS LDA EAL SAVE BUFFER’ S END ADDRESS. 
307@ 1IF43 48 PHA 

3084 1F44 ADS415 LDA EA 

3896 iF 47 48 PHAR 

3188 3 

3116 3 

31264 1F48 206716 JSR SAHERE SET SA=SELECT, SO CURRENT 
3136 3 LOCATION HILL BE START OF 
314G ; THE BLOCK WE’ LL MOVE. 

3152 $ 

31628 3 

3178 3 

318@ 1F45 206317 JSR NEXTSL ADVANCE TO NEXT CHARACTER 
3194 3 POSITION IN THE BUFFER. 
3264 IF4E 3811 BMI ENDINS IF WE’ RE AY THE END OF THE 
3218 -§ BUFFER, WE’ LL OQUERSTRIKE 
3226 ; INSTEAD OF INSERTING. 

3234 3 

3240 ; 

3256 1F54 206218 JSR DAHERE SET DEST=SELECT. 

3268 3 DESTINATION OF BLOCK MOVE 
327G ; WILL BE ONE BYTE RBOQVE 
328g 3 BLOCK’ S INITIAL LOCATION. 
3296 3 

3386 ; 

331@ 1FS53 ADS4i5 [DA EA DECREMENT END ADDRESS 
23324 LF55 Deg4 BNE *+6 

3330 IFS6 CES515 DEC EAtTL 

3340 IFSB CES415 DEC ER 

3350 3 

3359 3 

3370 3 

3384 1IFSE 260617 OPENUP JSR MOU.EA OPEM UP ONE BYTE GF SPACE 
3398 3 AT CURRENT CHARACTER’ S 
3488 3 LOCATION, BY MOVING TO DEST 
3418 ; THE BLOCK SPECIFIED BY SA. cA. 
3425 3 

3433 $ 

3446 1F61 68 ENDINS PLA RESTORE FA SO IT POINTS 
3454 1F62 SBS415 STA ER TO ENS OF BUFFER. 
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3460 
3476 
3488 
34358 
3508 
35168 
3526 
3536 
3546 
23558 
3558 
as7a 
3580 
3599 
3686 
3510 
3520 
3630 
3646 
3658 
3660 
S67 
3638o 
369@ 
3723 
3718 
3720 
3730 
349 
3756 
3786 
377a 
378G 
3793 
33068 
3816 
2829 
382g 
3SE40 
335G 
3a6G 
3870 
3853 
3836 
3300 
3391@ 
3326 
3333 
39468 
3353 
3958 
33976 
3388 
3334 
4898 
4616 
4026 
4336 


1iF6S 
IF 66 


1FES 
LF6A 
iFGD 
IFBE 


1F71 


1F74 


LF7S 
lf 78 
LF7gs 
1F7C 
LFTE 


if Bo 


LF Ss 


IF 84 
1FS6S 


IFS? 
iFss 
1F SB 
LFSE 
LF 9G 


1F92 
LFSs 
LFss 
iFSA 
IFSC 


1€ SF 
iFAL 


66 
8DS515 


53 
60S215 
68 
805315 


262BiS 


63 


2O20D1F 
6a 
249412 
CSF F 
FUO4 


2a8317 


68 


ASF 
6a 


38 
ADS315 
COUSE1i2 
S60C 
BOLG 


ALSZIS 
CDO51z2 
FOL? 
BOSS 
2ulALis 


ASGE 
52 


et wo 


NEXTCH 


aa OF 


3 
SL.OK 

’ 

$ 


PLA 
STA 


PLA 
STA 
PLA 
STA 


JSR 


PLA 


JSR 
RTS 
JSR 
CMP 
BEQ 


JSR 


RTS 


LDA 
RTS 


SEC 
LBA 
CMP 
BCC 
ENE 


LDA 
CMP 
BEQ 
BCS 
JSR 


LDA 
RTS 


EAt+L 


POP. SL. 


STRIKE 


GET.SL 
$ETX 
AN. ETS 


NEATSL 


SF F 


SA+L 


SELECT+1L 


SL.OK 
NOT.OK 


SA 

SELECT 
NO. DEC 
NOT .OK 


DEC.SL 


#3 


RESTORE SA SO IT POINTS TO 
START OF BUFFER. 


RESTORE SELECT SO IT POINTS 
TO CURRENT CHARACTER POSITION. 


RESTORE NEW CHARACTER TO 
ACCUMULATOR. WE’ VE CREATED 

A ONE-BYTE SPACE FOR IT, SQ 

WE NEEB ONLY OVERSTRIKE IT 

AND RETURN. 

GET CURRENT CHARACTER. 

IS IT END OF TEXT CHARACTER? 
IF SO, RETURN TO CALLER, 
BEARING A NEGATIVE RETURN CODE. 


IF NOT, SELECT NEXT BYTE IN 
BUFFER. 

RETURN PLUS IF WE INCREMENTED 
SELECTs MINUS IF SELECT 
ALREADY EGUALLED EA. 


SINCE WE’ RE ON AN ETA, WE 
WILL RETURN MINUS, WITHOUT 
INCREMENTING SELECT. 


PREPARE TO COMPARE. 

IS SELECT IN A HIGHER PAGE 

THAN START OF BUFFER? 

IF SO, SELECT MAY BE DECREMENTED 
IF SELECT IS IN A LOWER 

PAGE THAN SA, IT’S NOT OK. 


SELECT IS IN SAME PAGE AS SA. 
IS SELECT >SA? 


IF SELECT=SR, DON’ T BECREMENT 
SELECT. 

IF SELECT<SA, DON’ T GECREMENT 
SELECT. 

SELECTOSA, SO WE MAY 
DECREMENT SELECT AND IT 

WILE REMAIN IN THE BUFFER. 
SET A POSITIVE RETURN CODE... 
»» AND RETURN. 
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494 
4858 
49683 
4679 
4089 
4590 
4199 
4116 
4126 
4136 
4149 
4153 
4160 
4179 
4186 
4199 
4200 
4210 
4223 
4239 
4243 
4256 
4260 
42709 
4209 
4230 
4309 
4310 
4324 
4320 
43-19 
43548 
4368 
4378 
4330 
4395 
4400 
44ia 
4424 
4432 
4446 
445% 
4460 
4476 
4489 
44355 
4586 
4519 
452% 
4558 
4544 
450 
4S6A 
4576 
4588 
4596 
45 AG 
4614 


IFA2 
LFAS 
IFRS 
1FAEB 
1FAE 
LFRBS 


1FBL 
irES 


1FB4 
LFB? 
IFES 
LFBC 


if BF 


1FCL 


1FC4 
1FCS 
1F CS 
1FCB 
iFCe 
1FDS 
1FD02 
IF DS 
LF D8 


1FDA 


iFDoD 
1FEG 
1FES 
IFE4 
LFE? 


LFES 


IFEB 


1FEE 


ADSZ15 
B0SS12 
AUS3SL5S 
S8DAS5i2 
AS99 
6 


ASFF 
EO 


2UAB1LT 
ASFF 

262013 
26038317 


12F6 


2GAG17 


6a 
2BAB17 
291414 
209412 
CSFF 
Fas 
2h4014 
ZAU3317 
1OFL 


4C1A14 


261215 
ADS3SLS 
48 
ADS215 
48 


26E218 


2408317 


266716 
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NUT.OK LDA SA 


q@ v2 we 


NO. DEC 


ao we «ws wo 


FLUSH 
F LOOP 


PRTEBUF 


FRLOOP 


“7 «as 2e 


ENDPRT 


[T] we we 48 we ws 


DELETE 


STA 
LOR 
STA 
LDA 
RTS 


LDA 
RTS 


JSR 
LDA 
JSR 
JSR 


BPL 


JSR 


RTS 
JSR 
JSF 
JSR 
Crip 
BEG 
JSR 
JSR 
BPL 


JMP 


JSR 


SELECT 
SAt+L 


SELECT+1 


#23 


#3F F 


GOTGSA 
#ETX 

PUT.SL 
NEATSL 


FLOOP 


GOTOSA 


GOTOSA 
PR.ON 
GET.SL 
#ETX 
ENDPRT 
PR.CHR 
NEXTSL 
PRLOOP 


PR. OFF 


PUSHSL 
SAtL 


SA 


DAHERE 


NEATSL 


SAHEFE 


SINCE SELECT<SA, IT IS NOT 
EVEN IN THE EDIT BUFFER. SO 
MAKE SELECT LEGAL, BY SETTING 
IT EQUAL TO SA. 

SET A POSITIVE RETURN CODE... 
«. -AND RETURN. 


SELECT=SA, SO CHANGE 
NOTHING. RETURN WITH 
NEGATIVE RTURN CODE. 


SET SELECT=SR. 

PUT AN ETX CHARACTER 

INTO THE BUFFER. 

ADVANCE TO NEXT POSITION IN 
BUFFER. 

If WE HAVEN’ T REACHED END 
OF BUFFER, PUT AN ETX INTO 
THIS POSITION, TOO. 


HAVING FILLED BUFFER WITH 

ETC CHARACTERS, RESET SELECT 
TO BEGINNING OF BUFFER. 

RETURN. 

SET SELECT TO START OF BUFFER 

SELECT PRINTER FOR OUTPUT. 
GET CURRENT CHARACTER. 

Is IT ETX? 

If SO, WE’ RE DONE. 

IF NOT, PRINT IT. 

SELECT NEAT CHARACTER 

If WE HAVEN’ T REACHED THE 

END OF THE BUFFER, HANDLE 

THE CURRENT CHARACTER AS BEFORE. 
HAVING REACHED END OF MESSAGE 

OR END OF BUFFER, RETURN TO 
CALLER OF EDITIT, BESELECTING 

THE PRINTER AS WE BO SO. 


SAVE CURRENT ADDRESS. 
SAVE BUFFER’ S START ADDRESS. 


SET DEST=SELECT, BECAUSE 

WE’ LL MOVE A BLOCK OF TEXT 

DOWN TO HERE, TO CLOSE UP 

THE BUFFER AT THE CURRENT 
CHARACTER. 

ADVANCE BY ONE BYTE THROUGH 
BUFFER, IF POSSIBLE. 

SET SA=SELECT, BECAUSE THIS 

IS THE START OF THE BLOCK WE’ LL 


a) f 
oss 


SBbhRKRB RD DE 
VDHmMona»on 
x 


Mam 1 +t 


Yo wo 


LFF 1 


LFF 4 
LFFS 
iFre 
1FFS 


LFFC 
LFFF 


220617 


Ba 
6DS215 
63 
605315 
282515 
6S 


2e we ws 66 


JSR 


PLA 
STA 
PLA 
STA 
JSR 
RTS 


MOV.EA 


SA 


SAtTL 
POF. SL 


MOVE DOWN. 

NOTE: THE ENDING ADDRESS OF 
THE BLOCK IS THE END ADDRESS 
OF THE TEXT BUFFER. 

MOVE BLOCK SPECIFIED BY 

SA, EA TO DEST. 


RESTORE INITIAL SA CWHICH 

IS THE START ADDRESS OF THE 
TEXT BUFFER, NOT OF THE BLOCK 
WE JUST MOVED. > 

RESTORE CURRENT ADDRESS. 
RETURN TO CALLER. 
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Appendix C12: 


Extending the Visible Monitor 
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1G 

2B 

38 

49 

5 

62 

70 

60 

34 
169 
116 
129 
i= 
146 
158 
1ha 
17a 
169 
i3a 
cebu 
Z19 
220 
239 
240 
250 
269 
279 
2fey 
238 
2a 


‘20 V5 wp we we 


~e ve 2° ws we wi we 6P we we we we Be we ws 46 wo we we 46 ws wo 48 we 2h wh WP we 1b OP we BF us we M8 we OP wt 


we se 


APPENDIX C12: ASSEMBLER LISTING OF 
VISIBLE MONITOR EXTENSIONS 


SEE CHAPTER 12 OF BEYOND GAMES: SYSTEM 


SOFTWARE FOR YOUR 6502 PERSONAL COPMPUTER 


EREEARLEERABHEDELBREDREREEREREREDREREASEAEEDBES 


EXTERNAL ADDRESSES 


HEEBALHEBBRDDESEDDHASEHEREESRES SERBEEEEHEBEEREASES 


PRPAGE=8 1483 STARTING PAGE OF PRINT 


UTILITIES. 
FRINTR=PRPAGE 
USER =PRPAGE+2 


HEX. FG=51599 ADCRESS OF PAGE IN WHICH 


HEADUMP CODE STARTS. 


TUBUMP=HEA. PG+$57 
PROUMPSHEA. PG+SAE 


BSPAGE=$ 1900 STARTING FAGE OF DISASSEMBLER 
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Sea 


S96 
Ea 
619 
624 
630 
548 
BS 
654 
676 
68a 
696 
788 
71G 
726 
(33 
746 
res) 5) 
760 
(7G 
78a 
736 
C48 
£16 
629 
$34 
B48 
SoG 
86S 
87g 
856 
63SG 
368 
919 
S2G 
923 
346 
S52 
968 
372 
9388 
333 
1@2a 
19128 
1826 
1A3e8 
1646 
195% 
igasa 
1878 
1089 
19g@ 
1164 
1114 
1120 
1136 
1146 
1iSg 


185BG 


1BES 
1GB2 
LOE4 
LAaB7 
ISEg 
LBC 


16BD 
LOBF 
10CL 
18C4 
16C5 
igc3 


18CA 
16CC 
LBCE 
16D1 
1@03 
1GD6 
LGD? 
16BA 


1fDB 
1800 
Lanr 
1GE2 


1BE3 


CSI58 
LHS9 
ADAG14 
ASF F 
SD3H14 
58 


C3SES 
DABS 
ADUZ14 
45°F 
805214 
=] 74) 


C348 
DSsau 
ADSB14 
Dea4 
2as7r1S 
be 
2QAELS 
6a 


C940 
Daa4 
26B417 
66 


CS2F 
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x ee) or) ee Ye ce) ne ? ee , ey ee 


EXTEND 


NEXT .1 


IF. 


TY. BDIS=DSPAGEtS 
PR.DIS=DSPAGE+$25 


MOVERS=$1758 


START OF MOVE OBJECT CODE. 


MOVER =MOVERS+4 


ENPRGE=$ 1ES6 


ADDRESS OF PAGE IN WHICH 
EDITOR CODE BEGINS. 


EDITOR=EDPAGE+2 


#=$ 1650 


LAH EHLAKHELKEBATEHLEKHEEREBDS BEES SE LEKDEABALABDAS 


EXTENSIONS TO THE VISIBLE MONITOR 


CMP 
BNE 
LOR 
EOR 
STA 
RTS 


CrIP 
BNE 
LDA 
EOR 
STA 
RTS 


CMP: 
BNE 
LDA 
BNE 
JSR 
RTS 
JSR 
RTS 


CMP 
BNE 
JSR 
RTS 


9 
IF.DIS CMP 


#° P 

iF .U 
PRINTR 
HF F 
PRINTR 


¥’ U 

IF .H 
USER 
RFF 
USER 


* H 
IF. § 
FRINTR 
NEAT. i 
TUBUHP 


PROUMP 


MM 
If .vItS 
MOVER 


#’ 7 


SERED BEDEGRHELEBEBED BEES EE DSEBERERELEPESEBBS 


IS IT THE *P” KEY? 

IF NOT, PERFORM NEXT TEST. 
IF SO, TOGGLE THE PRINTER 
FLAG... 


AND RETURN TO CALLER. 


IS IT THE ’U’ KEY? 

IF NOT, PERFORM NEXT TEST. 
IF SO, TOGGLE THE USER- 
PROVIDED OUTPUT FLAG... 


AND RETURN. 


IS IT THE ’H’ KEY? 

IF NOT, PERFORM NEXT TEST. 
IS THE PRINTER SELECTED? 
IF SO, PRINT A HEXDUMP. 

IF NOT, DUMP TO SCREEN... 


AND RETURN. 


PRINT €@ HEADUMP... 
»» AND RETURN. 


IS IT THE *M’ KEY? 

IF NOT, PRFORM NEXT TEST. 
If SO, LET USER SPECIFY AND 
AND MOVE A BLOCK OF MEMORY. 


IS IT THE * ?’ KEY? 


1168 
11708 
116d 
1196 
1200 
1219 
1228 
1239 
124G 
1258 
1266 
12763 
1288 
12368 
1360 
1318 
1324 


1GES 
IGE’ 
1GEA 
1GEC 
ISEF 
16Fa 
1GF3 


1GF 4 
16F6 
16FS 
1LOFB 


1GFC 


DEED 
ADGG14 
Da84 
289919 
60 


262619 NEXT.2 


6a 


cs54 
Da24 
2O021E 
69 


6 


BNE 
LDA 
BNE 
JSR 
RTS 
JSR 
RTS 


ChIP 
BNE 
JSR 
RTS 


RTS 


IF .T 

PRINTR 
NEXT.2 
TV.DIS 


PR.DIS 


#7 


EXIT 
EDITOR 


IF NOT, PERFORM NEXT TEST. 
IS THE PRINTER SELECTED? 
IF SO, FRINT A DISASSEMBLY. 
IF.NOT, DISASSEMBLE TO THE 
SCREEN AND RETURN. 

PRINT A DISASSEMBLY... 

AND RETURN. 


Is IT THE ’T’ KEY? 

IF NOT, RETURN. 

IF SO, CALL THE SIMPLE 
TEXT EDITOR AND RETURN. 


EXTEND THE VISIBLE MCNITOR 
EVEN FORTHER BY REPLACING 

THIS °’RTS’ WITH A ’ JP’ TO 
MORE TEST-AND-BRANCH CODE. 
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Appendix Cl 3: 


System Data Block for the Ohio 
Scientific C-1P 
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APPENDIA® C13: ASSEMBLER LISTING OF 
SYSTEM BATA BLOCK 
FOR THE OHIO SCIENTIFIC C-1iP 


1B 
2 
3a 
49 
5G 
6a 
7G 
89 
90 
16a 
114 

128 
138 
148 
156 
16a 

17a 
1368 

138 

20a 

218 

228 

238 

242 

25a 

268 

270 

28GB 

298 

30g 

31G 

320 

338 

349 

3539 1890 4=$ 1009 

36g 

378 

38a 

39a 

40a 

416 1008 65D@ 4H 

420 

43a 

440 

458 

46a 

478 

48a 

498 

Sag 

51a 

526 10g2 24 

53g 


SEE APFENDIX Bl OF BEYOND GAMES: SYSTEM 
SOFTHRRE FOR YOUR 5502 PERSONAL COMPUTER 


49 we we we we 44 wt A te 


BY KEN SKIER 


“we wk we we we Wk ee 4 wk we 8 let 


EREVADLHEDREPAL ES BRBADHESS SHPEGKEHEAAEEFESES 


SCREEN PARAMETERS 


HEBER SAB FEED EERABERBES BERRBERREEKFRERESEDERHES 


we we we we wh we Vt we VS we we Be ws 


Me -WORD SDSE5 THIS IS THE ADDRESS OF THE 
CHARACTER IN THE UPPER LEFT 
CORNER OF THE SCREEN. THE 
ACDRESS OF HOME WILL VARY AS 

A FUNCTION OF YOUR VIDEO MONITOR 
T SET MINE TO $DS65. IF YOu 
CAN’ T SEE THE VISIBLE MONITOR 
DISPLAY, ADJUST THE LOW BYTE. 


BYTE 32 ADDRESS DIFFERENCE FROM ONE 
ROW TO THE NEX 

54g 1903 18 COLS .BYTE #18 NUMBER OF CGLUMNS ON SCREEN, 

ssa COUNTING FROM ZERO. 

564 1004.18 TYURONS .BYTE $18 NUMBER OF ROWS ON SCREEN, 

57G ; COUNTING FROM ZERO. 


A 
= 
KH 
mee 
ube 
O 


we Co we DC we we ws we we we ME we we we Cr ve wh vn we we 


+ 
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58@ 1895 03 
534 1606 28 
606 1987 19 
618 
626 
638 
649 
650 
664 
676 
680 
636 
78a 
718 
26 
38 
748 
754 
760 
(7G 
78a 
730 
808 
814 
626 
838 
840 
858 
860 
87G 
88a 
836 
908 
310 
326 
938 
946 
356 
964 
378 
386 
398 
1696 
19iB 
1626 
1636 
1048 
1058 
166@ 
147G 
1682 
16398 
1106 
Liilg 
1126 
1136 
1140 
1156 


16066 EDFE 


160A 2U0BF 


186C B1FC 


10GE 1610 


1616 6@ 
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HIPAGE .BYTE $03 


HIGHEST PAGE IN SCREEN MEMORY. 


BLANK .BYTE $22 OSI DISPLAY CODE FOR A BLANK. 
ARROW .BYTE $10 OSI DISPLAY CODE FOR AN UP-ARROW 


@ et we us we VP we OH ws we 8 we MS we 8 ws wh WE we Oe we 


v8 


Cc) «8 we we we we we w 


7 


oO we we 24 we VG we 


a 


U 


we we wa ae we 40 we CT Ot we en as we we U)} 2 we 268 we 


MKEY 


MTVT 


MPRT 


ROUT 


SEEBEFESLELEREDDSEDSSEALSELESDRBRASEHSASRBKSLZESASS 


INPUT/OUTPUT VECTORS 


FERTREERELESCERELESSESSFHERHASFERESEEALESDSELCIAAGAESS 


POINTER TO ROUTINE THAT GETS 
AN ASCII CHARACTER FROM THE 
KEYBOARD. CNOTE: SFFEB IS 
THE GENERAL CHARACTER-INPUT 
ROUTINE FOR OSI BASIC-IN-ROM 
COMPUTERS. 3 


-HORD SFEED 


POINTER TO ROUTINE TO PRINT 

AN ASCII CHARACTER ON THE SCREEN 
(NOTE: SFFEE IS THE 
CHARACTER~OUTPUT ROUTINE FOR 

OST BASIC-IN-ROM COMPUTERS. 3 


~WORD SBF 2D 


-WORD SFCB1L POINTER TO ROUTINE TO SEND AN 
ASCII CHARACTER TO THE PRINTER 


CACTUALLY, TO THE CASSETTE PORT. 


POINTER TO USER-WRITTEN OUTPUT 
ROUTINE. CSET HERE TO DUMMY 
UNTIL YOU SEF IT TO POINT 

TO YOUR OWN CHARACTER-OUTPUT 
ROUTINE. } 


~-WORD DUTMMY 


THIS IS AR DUMMY SUBROUTINE. 
IT GOES NOTHING BUT RETURN. 


RTS 


1166 
1173 
1188 
11998 
1203 
1216 
12290 
1230 
1244 
1256 
1260 
1270 
12389 
12350 


1911 &8B 


F 


we 24 we ff] we wi wh BE wk we ee wn eat we 


KEHEKEEABBEEPDAREREEERELAD EEBEDPEERBEKREBRAEBRSEESD 


CONVERT ASCII CHARACTER TO DISPLAY COTE 


EBRKEDEABKEDEBLEBERAKFEEHASESEREESSEEBE EES ES 


XCER RTS 


SINCE OSI DISPLAY CCBES ARE 

THE SAME AS THE CORRESPONDING 
ASCII CHARACTERS, NO CONVERSION 
IS NECESSARY; FIACHR IS A DUMMY. 
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Appendix Cl 4: 
system Data Block for the PET 2001 


APPENDIX C14: ASSEMBLER LISTING OF 
SYSTEM DATA BLOCK 
FOR THE PET 2061 


19 
2g 
34 
49 
59 
6G 
74 
+S) 2) 
54 
158 
119 
124 
138 
1490 
158 
169 
176 
185 
198 
204 
219 
22h 
230 
24a 
259 
265 
2re 
250 
299 
360 
31a 
326 
339 
348 
358 1685 =$1000 
368 
378 
38 
396 
408 
419 1069 geaag 
429 
430 
476 1682 28 R 
486 
438 1063 27 T 
506 


SEE APPENDIX B2 OF BEYOND GAMES: SYSTEM 
SOFTWARE FOR YOUR 6202 PERSONAL COMPUTER 


BY KEN SKIER 


20 wt we we ws 


EREFHKHERESAREKBERERKAEEEEEREESEEEEBEERERBHADS 


SCREEN PARAMETERS 


RHBEEEAEAAKSBREKEBHELSSFEBEREHABAEBASEESATFERS 


me 2e we we we ws we 


ME «WORD $5096 THIS IS THE ADDRESS OF THE 
CHARACTER IN THE UPPER LEFT 
CORNER OF THE SCREEN. 

-BYTE $28 ADDRESS DIFFERENCE FROM ONE 
ROW TO THE NEXT. 

COLS .BYTE 39 NUMBER OF COLUMNS ON SCREEN, 

COUNTING FROM ZERO. 

516 1864 18 TYVROWS .BYTE 24 NUMBER OF ROWS ON SCREEN. 

524 3 COUNTING FROM ZERO. 

S20 1685 83 HIPAGE .BYTE 363 HIGHEST PAGE IN SCREEN MEMORY. 

[40 1666 228 BLANK .BYTE 3208 PET DISPLAY CODE FOR A BLANK. 

556 ; CIN NORMAL VIDEO MODE. ) 

SES L087 1 ARROW .BYTE @1E PET DISPLAY CODE FOR UP-ARROW. 

573 ; 

SEG 3 

596 $ 

: 


653 


< 


© Ce Cee O ve 08 OC os we eo we wr 
= 
H 
z 
oO 


363 


6108 
620 
632 
640 
6558 
666 
676 
680 
696 
73a 
718 
724 
738 
746 
7509 
7EG 
77@O 18628 2A1G Rr. 
788 
730 
e141) 
31iG 
328 
336 
846 
6856 199A D2FF R 
8EG 
37GB 
884 
690 166C £614 ROMPRT .WORD DUMMY POINTER TO ROUTINE TO SEND AN 


EMBER KHER EEEEBRBRHAERERREKEKADERERBEEEERERBEAE 


INPUT/OUTFPUT VECTORS 


EHBBKHEEKERBEGEREREAREEE EEE DEBEE EEE ERERREREKES 


oO m6 “8 2h © we 4h He BR le 8 lw ge we OP UF UO 


MKEY .WORD PETKEY POINTER TO ROUTINE THAT GETS 
AN ASCII CHARACTER FROM THE 
KEYBOARD. CHOTE: PETKEY 
CALLS A ROM SUBROUTINE, BUT 
PETKEY IS NOT A PET ROM 
SUBROUTINE. 3 


MTVT .WORD SFFD2 POINTER TO ROUTINE TO PRINT 
AN ASCIT CHARACTER ON THE SCREEN 


we we we o “we we ws ws we wt we 


3348 3 ASCII CHARACTER TO THE PRINTER 
916 3 CSET TO DUMMY UNTIL YOU MAKE 
320 3 IT POINT TG THE CHARACTER- 
934 : OUTPUT ROUTINE THAT DRIVES 
346 3 YOUR PRINTER. 3 

356 3 

S56 3 

S76 100E i810 USROUT .WORD DUMMY POINTER TO USER-WRITTEN OUTPUT 
989 ; ROUTINE. CSET HERE TO DUMMY 
9904 $ UNTIL YOU SET IT TO POINT 
1600 ; TO YOUR OWN CHARACTER-OUTFUT 
1610 3 ROUTINE. 3 

102A 3 

18345 H 
1044 1010 66 DUMMY RS THIS IS A DUMMY SUBROUTINE. 
1650 3 IT DOES NOTHING BUT RETURN. 
1664 3 

1676 3 

1a8G 3 

163968 3 

1149 3 

4119 3 

1120 5 KKERKKRERAKEDBEKEBKEEKSEA SHEDS SHESHEREBKESSE 
1136 3 

1140 3 CONVERT ASCII CHARACTER TO DISPLAY Cove 
1156 3 

i169 5 ERHEEKAKKEKERKHES GH EREDEKHAH GEES EHDEFEERABRAEES 
1170 3 

1156 3 


364 BEYOND GAMES 


1156 


o> 66 we 


1260 

12168 ; 

1228 1611 297F FIXCHR AND #87F CLEAR BIT 7, TO MAKE IT 
1230 3 A LEGAL ASCII CHARACTER. 
1249 1413 32 SEC PREPARE TO COMPARE. 

1250 1814 C3949 CMP #944 IS IT LESS THAN #407 .CIS 
1266 3 IT A NUMBER OR PUNCTUATION 
1279 ; ., MARK?) 

12380 1816 9611 BCC FIXEND IF SO, NO CONVERSION NEEDED. 
1250 ; 

1366 1016 C963 CMP #8527 IS IT BETWEEN $49 AND $607 
1316 3 

1320 161A SBA BCC SUB. 40 IF So, SUBTRACT $46 TO 

330 7] CONVERT FRGM.ASCII TO PET. 
12409 3 

1353 3 IT’S >= $66, SO WE MUST 
1376 101C AZGBE LDX #14 SET PET DISPLAY MODE FOR 
13586 101E SD4CES STA 59468 CHARACTER SET THAT INCLUDES 
1355 3 LOWER CASE ALPHA CHARACTERS. 
14960 1921 E920 SBC #$20 SUBTRACT $26 TO CONVERT 
1419 LOWER CASE ASCII TO FET CODE. 
1426 10235 18 CLC 

14328 1624 9053 BCC FIXEND 

1435 $ 

1444 1626 39 SUB.40 SEC PREPARE TO SUBTRACT. 

1450 1827 £949 SBC #946 SUBTRACT $44 TO CONVERT ASCII 
1468 ; UPPER CASE CHAR TO FET COTE. 
14*°@ 1629 GG FIMEND RTS RETURN, WITH A HOLDING 

1486 3 PET DISPLAY CODE FOR ASCII 
1489 3 ORIGINALLY IN A. 

1538 3 

1519 > 

1529 H 

1539 3 

154% ; 

1556 3 ESEKKFSHKEASEBSGHSALEKEBSHSEDEBESESHERFERRESEES 
1563 , 

157% > GET AN ASCIT CHARACTER FROM THE KEYBORRD 
156g 3 

i533 F KFHEKHEKDLKASLHAHSHESEHSERKHAHBEAKASEBESHHEREBES 
1686S 3 

1618 3 

1625 $ 

L638 ; 

1640 182A 2QE4FF PETKEY JSR $FFE4 SCAN THE PET KEYBOARD 

1659 i820 297F AWD 57°F CLEBR BIT 7, TO BE SURE 
1663 ; IT’S A LEGAL ASCII CHARACTER. 
167T@ 122F FOF BEQ FETKEY ZERO MEANS NO KEY. SO 

1623 SCAN AGRIN. 

1698 

1764 1631 68 RTS RETURN WITH ASCII CHARACTER 
Avis FROM THE KEYBORPRD. 
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Appendix Cl 5: 
System Data Block for the Apple I! 


1969 


1603 G@564 


i632 88 


1063 27 


1684 87 


1065 87 


18@S AB 


we SO we Bh we we we we we we we we owe 


H 


us we we 82 we CE ve ws we we ws 


me |S wo wh we we Oe 8 8 we 4S Oe 8 we we EO lw we OO OF we 


APPENDIX CiS: ASSEMBLER LISTING OF 
SYSTE! DATA BLOCK 
FOR THE APPLE If 


SEE APPENDIX BS OF BEYOND GAMES: SYSTEM 
SOFTWARE FOR YOUR 6502 PERSONAL COMPUTER 


BY KEN SKIER 


SRRKEKKASSHEEREREFHSKHSESLSEKSAERSS SERFS AESES 


SCREEN PARAMETERS 


SHESKAKKERERSSLSFEBSHESEDHSSSSELSEHEAESSESIASSTSES 


$=31869 


ME -KMORD $9428 THIS IS THE ADDRESS OF THE 


CHARACTER IN THE UPPER LEFT 
CORNER OF THE SCREEN. 

CWHEN YOU ARE DISPLAYING 
LOW-RESOLUTION GRAPHICS AND 
TEXT PAGE 1.) 


ROWING .BYTE $86 ADDRESS DIFFERENCE FROM ONE 
3 ROW TO THE NEXT. 

TUCOLS .BYTE 39 NUMBER OF COLUMNS ON SCREEN, 
3 COUNTING FROM ZERO. 

TYROHS .BYTE 7 NUMBER OF ROWS ON SCREEN, 


COUNTING FROM ZERO. 


$ 
HIPAGE .BYTE $67 HIGHEST PAGE IN SCREEN MEMORY. 


CWMITH LOW-RES PAGE 1 SELECTED. 3 


3 
BLANK .BYTE SAR APPLE II DISPLAY CODE FOR 


e 
$ 


A BLANK: A DARK BOX, USED AS 
A SPACE WHEN APPLE II IS IN 


Sag 
538 
EGs) 
61G@ 1697 DE 
62h 
63a 
640 
659 
659 
679 
bea 
696 
ac) 
713 
720 
738 
740 
758 
76a 
77o 
788 
734 
649 
618 
828 
633 
646 19098 1416 
65.3 
869 
Br 
6380 
B99 
353 
S1G 
924 194A 1A1B 
$33 
348 
956 
364 198C 1016 
979 
388 
3393 
1600 
161& 
16260 
1939 
1840 
19054 
1GEG 
197a 
1ge9 
1636 
1199 
£116 
1129 
1138 
1146 
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Fi 


R 


R 


R 


3 NORMAL DISPLAY MODE CWHITE 
3 CHARACTERS ON A DARK 

3 BACKGROUND. 3 

RROW .BYTE SDE APPLE Ii DISPLAY CODE FOR 


A CARAT CUSED BECAUSE AFPLE 
IT HAS NO UP-ARROW. 3 


SHKAERKFHDHSFALAAABESALESBABEESRERAFAHKEDAGSALAS 


INPUT/QUTFUT VECTORS 


BRERFKEKFLHRABSERESEREBEEBE SHADERS HEBHESSEPEER 


MKEY .WORD APLKEY POINTER TO ROUTINE THAT GETS 
AN ASCII CHARACTER FROM THE 
KEYBOARD. CNGTE: APLKEY 
CALLS A ROM SUBROUTINE, BUT 
APLKEY IS NOT AN APPLE ROM 
SUBROUTINE. 


MTVUT .WORD APLTVT POINTER TO ROUTINE TO FRINT 
AN ASCII CHARACTER ON THE SCREEN 


MPRT .WORD DUMMY POINTER TO ROUTINE TO SEND AN 
ASCII CHARACTER TO THE PRINTER 
CSET TO DUMMY UNTIL YOU MAK 
IT POINT TO THE CHARACTER- 
OUTPUT ROUTINE THAT DRIVES 
YOUR PRINTER. } 

YOU MAY WISH TO 
SET ROMPRT SO IT POINTS TO 
$FDED, THE APPLE if’S 
GENERAL CHARACTER OUTPUT 
ROUTINE. SFDED WILL PRINT TO 
A PRINTER IF YOU TELL 
YOUR APPLE II ROP SOFTWARE 
TO SELECT YOUR PRINTER AS 
AN OUTPUT DEVICE. DO THAT 
IN BASIC BY TYPING "PR #N°, 
WHERE N IS THE NUMEER OF THE 
SLOT HOLDING THE CIRCUIT CARD 
THAT DRIVES YOUR PRINTER. 


qo wt we wt ue et Be we Se M8 we ws ws et we we we we CO) ve we we CC) Oe 48 oe eh ee se we OC) Oe ee es ee we we 8 we we Yt we we we ws we ee we ws Oe we we en 


115i 3 

lle H 

liv 3 

1160 lsge 1419 USROUT .WORD DUMMY POTHNTER TO USER-WRITTEN OUTPUT 
1iS $ ROUTINE. <€SET HERE TO DUMMY 
LZ0g > UNTIL YOU SET IT TO POINT 
12k ; TO YOUR OWN CHSRACTER-OUTPUT 
lecit 3 ROUTINE. ? 

L225 ; 

IIs 3 

lézhti 1616 6G DUMMY RTS THIS IS A DUMMY SUBROUTINE. 
1ZE ; IT BOES NOTHING BUT RETURN. 
1z7T@ H 
L2ee ; 

2993 ; 
1389 r 
1218 ; 

22k 3 

1s3 $ SAKKHHKBASEREHEDHAHKEKSESSHRESREAKSEHKEDBESEFHASBAAS 
134g 3 

LSES H CONVERT ASCII CHARACTER TC BISPLAY CODE 
1365 3 

1378 $ ELHABASHSSESESS#ASHSEASLSASESSSSRASHSHSEDSEAASSEHHKS 
1386 ; 

13398 3 
1466 ; 

14i8 ; 

1423 r] 
1438 1G11 8963 FIACHR ORA #982 SET BIT 7, SO CHARACTER 
1440 > WILL BISPLAY IN NORMAL MODE. 
1459 1613 6B RTS RETURN. 

i4sa 5 

1478 : 

14823 3 

1459 5 

1ShA ; 

151@ $ CEEALSESSRAGHELRASSEDAA BES EDDEEDEBDAESEASABRAEAGS 
S28 H 

1534 H GET AN ASCII CHRRACTER FROM THE KEYBOARD 
1543 H 

1Eo9 5 ESEEREADHELABESKHKREASESESEGASAKABSEASERESSSHEBS 
LEE 3 

re 

i ; 

1 H 

1 1614 2035F0 APLKEY JSR S$FD3SS5 GET KEYBOARD CHARACTER WITH 
1 : BIT V SET. 

L (Bll 297F AND #&$7F CLEAR BIT 7. 

4 3 

1 1919 6&3 RTS RETURN WITH ASCII CHARACTER 
1 FROM TRE KEYBORRD. 


NIN DFO TnHaAnAnMnnrmoaao oc 
iReFE A Oomo$ kB os) Re 2) ooo ON 


Dag,geacssagueeodeauwnk 


OO oll ie a a 
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17348 


40 $  BREKEAEEHLERBEREBEEALBEES EHDA ESEHNEKSEEEBERSDESES 
175@ % 

1768 3 PRINT AN ASCII CHARACTER ON THE SCREEN 
1773 3 

1783 $  FEKAKEEBKAKHHS HHHHRHKHEBEDHEREEEHEDHSPSSESHKEBS 
1739@ 3 

1B26 3 

1814 3 

1826 3 

1838 3 

1546 181A 8980 APLTVT ORA #386 SET BIT 7 SO CHARACTER WILL 
1850 3 PRINT IN NORMAL FIGDE. 

19060 191C ZOrDFB JSR SFEFD CALL APPLE II RGM RULUTINE TO 
1878 ; PRINT FR CHARACTER TO SCREEN. 
156d 1G1F 66 RTS RETURN TO CALLER. 
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Appendix C16: 


System Data Block for the Atari 800 


N 
AY 
() FE): 


C 


. m 


Hes 


NN & AN Np) 
MOU p ON ee 
Ti 


Qo a 


254 


-h 


a+ we wt wo 


an “0 we 44 we es we we 78 we Bt we we 48 we NE we we ws we BE le OF le A we Oe HE et le 


REFPENDIA C16: ASSEMBLER LISTING OF 
SYSTE?M DATA BLOCK 
FGR THE ATARI 803 


SEE APPENDIX B4 OF BEYOND GAMES: SYSTEM 


SOFTWARE FOR YOUR 6592 PERSONAL COMPUTER 


BY KEN SKIER 


RHE BREE BERRABEEBDEEERBEEEBARS EREREEEBDEREBASSES 
EXTERNAL ADDRESSES 


EEESEHEBLEEREBREPAREEETBERBEBLSEEREDBEDEEBETSS 


TU. PTR=G 


TUSUBS=8118a8 

CLR. XY=TVSUBS+$13 
TVHOME=TUSUBS+$2B 
TUTOXY=TYSUBS+#3C 
TUDOWN=TVUSU5S+$76 
TUPUSH=TVUSUBS+$C4 
TY. FPOP=TUSUBS+93D3 
VYUCHAR=TVSUBS+97C 


HEX. PG=31580 
SASHEA.PGS+352 
EA=SAT2Z 


MOU. PG=31 789 
BEST=MOU, PG+$B2 
MOU. FA=MOU.PG+SD6 


375 


566 

53 

648 

610 

626 

33 

640 

656 

659 

676 

600 

65394 

4%a)%) 

fig iBe0 
72a 

3 

7468 

738 

769 1889 427C 
oe) 

7E6 

*30 

889 

o10 

828 

638 

S44 

652 

S65 

67 

036 

B98 

S86 

S14 

326 

936 

S43 

95g 

JEG 

S76 

S86 1682 26 
320 
1@06 1@63 27 
16iv 
1@Z2G 1004 17 
iGs 
1849 1865 7F 
1652 
1862 
1n7%3 
1G8¢ 
16399 
1156 
1110 
1120 
1136 16¢@65 og8 
1148 1887 7B 
1158 
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“48 24 45 ws ws Wh we VO we VA vs we 


#=917090 


HOME ~WORD 37C42 


NOTE: 


WINC .BYTE 46 


7 


COLS .BYTE 39 


| 


o € et © wo ws we we we we Be we ue Wh we Ot we we we we WE we we ue se CO) We BE wn wt 


3 
TVROHS .BYTE 23 


HIPAGE .BYTE STF 


BLANK .BYTE O 
ARROW BYTE $7B 


bd 


SEER ERABESHEEBEEL HS EERERETHAKREDFHARAESASHPEALGSH 


SCREEN PARAMETERS 


BEEREPERRERDSEBEBSGEESS SKEKFHEKELAELKSEFESELAFSHSRE 


ADORESS OF THE 

CHARACTER IN THE UPPER LEFT 
CORNER OF THE SCREEN. 

CFOR AN ATARI SGA W/32K RAM, 
IN SCREEN MODE G. } 

YOU MUST USE SCREEN MODE @. 
APPENDIX B4 INCLUDES A BASIC 
PROGRAM TO START THE VISIBLE 
MONTTOR. IT SETS HOME FOR 
YOUR SYSTEM. 

IF HOME IS LESS THAN $2889 
(6152 DECIMAL?, THE SCREEN 
WILL INTERFERE WITH THE 
SOFTHARE IN THIS BOOK. 


IF YOU TRY TO RUN THIS 

SOFTWARE CN AN SK SYSTEM. DON’ T 
USE THE DISASSEMELER OR THE 
SIMPLE TEXT EQITOR, BECAUSE 
SCREEN OPERATIONS WILL WRITE 
OVER THEM, AND THEY’ LL CRASH. 


ADDRESS DIFFERENCE FROM ONE 
ROW TO THE NEAT. 

NLATBER OF COLUMNS ON SCREEN, 
CQUNTING FROM <4ERG. 

NUMBER OF ROWS ON SCREEN, 
COUNTING FROM ZERO. 

HIGHEST FASE IN SCREEN 
MEMORY. LIKE HOME, .HIPAGE 
VARIES ACCORDING TO THE 
AMGUNT OF RAM IN YOUR ATARI. 
HIFASE IS SET FOR YOUR SYSTEM 
WHEN YOU RUN THE BASIC PROGRAM 
IN APPESDIx BH TO START 

THE VISIBLE MONITOR. 


ATARI DISPLAY CODE FOR A BLANK 
ATARI DISPLAY CODE FOR 
AN UP-ARROW. 


L1Ee 
Li7vs 
1168 
11t:3 
Lind 
ig 
Zeer 
25a 
i246 
iz5e 
1256 
1Z27B 
V2EG 
12Z9h 
1268 
1sia 

32a 


tus 
SOUS 


1349 
1sEa 
seu 
137@ 
1252 
1356 
1449 
141¢ 
1428 
14390 
L446 
1459 
1459 
1478 
1483 
1438 
15989 
i518 
i8zs 
i538 
1549 
15S6 
LiSen 
1S7s 
155% 
1554 
Lene 
1161S 
1626 
1630 
1646 
1655 
1G6S 
167g 
1ERg 
iss 
1723 
1Vv1S 
1726 
1738 


1898 2816 


189A 3613 


igec 10140 


1OGE 1016 


i3iB &O 


a 


Aj 


8 


C 


D 


ERSSLEKEEBLFKESSSEDHEASERBESFHEALEKSSEESSHRSABS 


INPUT/OUTPUT VECTORS 


FEFLFSRSELBSEKSSSESHSKSSEARABSALLSEFSSFSEHSAAAHHSLRG 


OC) 88 we we we we BH we OF we WO we Pe we et we we we we ws 


KEYBOARL. 


© «es we we GC) BF ws we ae 
sj 
5 


MPRT .WORD DUMMY POINTER TO ROUTINE TO SEND AN 
ASCII CHARACTER TO THE PRINTER 
CSET TO BUMMY UNTIL YOU MAKE 


IT POINT TO THE CHARACTER- 
OUTPUT ROUTINE 
THAT DRIVES YOUR PRINTER. 


Cf} «0 we we we as we we ue 


UNTIL YOU SET IT TO POINT 


ROUTINE. 3 


MMY RTS THIS IS A DUMMY SUBROUTINE. 
IT DOES NOTHING BUT RETURN. 


BHEHKHSRHEFSKKASLSESHEEEHKEKSEESTEDSEHHADSELTEEESA 


CONVERT ASCII CHARACTER TO DISPLAY CODE 


SEALKEASREAKSESLESERRGESSESEASASESEDSESSESESSEEFEIHSSE 


we we wt 46 we OF wh we OE we Oe we ee (ws Be we GE we ws 


MKEY .WORD ATRKEY POINTER TO ROUTINE THAT GETS 
AN ASCII CHARACTER FROM THE 


eWORD TYTSIM POINTER TO ROUTINE TO PRINT 
AN ASCII CHARACTER ON THE SCREEN 


ROUT .KORD DUMMY POINTER TO USER-WRITTEN OUTPUT 
ROUTINE. CSET HERE TO DUMMY 


TO YOUR OWN CHARACTER-OUTPUT 
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1740 
i7sa 
1758 
aa 
17So 
1798 
1896 
1818 
1828 
igs 

1B4a 
1ss@ 
1866 
1878 
1880 
1838 
isea 
i919 
192g 
193% 
1949 
1353 
1968 
1970 
1958 
issg 
2609 
2410 
22829 
2039 
2842 
2950 
2068 
2876 
2082 
z2aag 
2168 
2110 
2129 
2138 
7140 
2159 
2159 
2170 
2180 
zisa 
2200 
2210 
2220 
2230 
2249 
2256 
2264 
2270 
2288 
2798 
23288 
23198 
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1611 297F 


1913 38 
1914 C92a 
1Q16 Soas 


i@iB CS5o 
161A 9988 
1G1C CS7B 
i@iet S007 


F 


eo fj «we we ws we 


ACHR AND 


SEC 
CrP 
BCC 


CMP 
BCC 
CMP 
BCC 


b 
1620 ADS6iG BADCHR LDA 


> 


RTS 


SUB.20 SEC 


SBC 


$ 
FIXEND RTS 


25 we we BVO wh 86 we we 4P ws Ot we V8 we we wet we et lw 


RF 


#329 
BRAUCHR 


#350 
SUB.20 
#373 
FIXEND 


BLANK 


#320 


CLEAR BIT 7 SO CHARACTER IS 
A LEGITIMATE ASCII CHARACTER. 
PREPARE TO COMPARE. 

IS CHARACTER < $207 

IF SO, I7’S NOT A VIEWABLE 
ASCII CHARACTER, SO RETURN 

A BLANK. 


IS CHARACTER < $607 

IF SO, SUBTRACT $26 AND RETURN. 
CHARACTER < S7E? 

IF SG, NO CONVERSION IS NEEDED. 


THE CHARACTER IS NOT A 
VIEWABLE ASCII CHARACTER, 

SO RETURN A BLAM. 

PREPARE TO SUBTRACT. 

SUBTRACT $29 TO CONVERT ASCII 
TO ATARI DISPLAY CODE. 

RETURN WITH ATARI DISPLAY 
CODE FOR ORIGINAL ASCII 
CHARACTER. 


BERKEEHBFAARLERAFEABKSEAEASESELERTERBEDBAMA EEARVRH 


GET AN ASCII CHARACTER FROM THE KEYBOARD 


FSLESRKSEBRSESLHESSEFEKHESSSSERELHESBDABERELSESSERAETLG 


9 
1826 ADFCH2 ATRKEY LDF 


1625 CSFF 
lWcD FOFS 


i@2F AS 


CHP 
BEG 


TAY 


S02FC 
SF F 
ATRKEY 


HAS A KEY BEEN DEPRESSELR? 


SFF MEANS NO KEY. 
IF NOT, LOOK AGAIN. 


A KEY HAS GONE DGWN. 
ACCUMULATOR HOLDS ITS 


HARDMRRE KEY-COBDE. 


PREFARE TO USE THAT COBE AS 
AS AN INDEX. 


esis 
2419 
e4ca 
24438 
2443 
245% 
24c8 
2478 
2489 
2450 
Voted AT) 
25148 
2523 


267k 
26e9 
269Y 
27Ga 
2719 
272k 

2738 
2748 
275 
27h 
2776 
276 
27o2 
2508 
2olg 
2820 
Z2esu 
2544 
2659 
2ZSEB 
287 
ZEBO 
2zsa9Gg 


Luiza 


1Gss 


9aa0= 
QB5A= 


103-4 


ESOHGF 


2s 
2% 
¢ 


re 
ow 


CSap 


DEUS 
acea 
Ssn35i0 
EO 


CSSA 
DASS 
4CagodEe 


4 
< 


_| 


ry) < we we br ©8 we Cf ws 


me we we ar «es «we we 


LDA ATRKYS,Y 


RTS 


LOCK UP CHARACTER FOR THAT 
KEY AND SHIFT STATE. 

RETURN WITH ASCII CHARACTER 
FOR THAT KEY AND SHIFT STATE. 


HEH EKPSERLAEKHKHADEDSEREEREDARERHSHSREBISSEEGRS 


PRINT AN ASCII CHARACTER ON THE SCREEN 


BDREDLHAKREREEHERHEAREKABRSHSERSERBEDRHKAHSSSHHABASDAD 


CHAR 


RESET 


? 
LF TEST 


BDS419 CHSAVE 


2bc4il 


ACE414 
AESSIO 
cBsClil 


R0US4I1B 
2O7Ccil 
EE3516 


CR=830 
LF=$0A 


»-BYTE @ 


~-BYTE @ 


CrP 


BNE 
LDA 
STA 
RTS 


CMP 
BNE 
JMP 


STA 
JSR 


LDY 
LIX 
JSR 


LDA 
JSR 
INC 


#CR 


LFTEST 
#0 
TV. COL 


#LF 
CHSAVE 
SCROLL 


TUCHAR 
TVUPUSH 


TUROWS 
TYU.COL 
TUTOXY 


TVCHAR 
VUCHAR 
TY. COL 


IF 


ASCII CARRIAGE RETURN. 
ASCII LINEFEED CHARACTER. 


THIS BYTE HOLDS CHARACTER 
TO BE DISPLAYED. CALSO, 
CHARACTER MOST RECENTLY 
DISPLAYED, USING TYTSIM. 3 
THIS BYTE HOLDS COLUMN IN 
WHICH CHARACTER WILL NEXT 
APPEAR. WE MAY THINK OF 
AS THE POSITION OF AN 
ELECTRONIC “PRINT-HEAD®. 


IT 


IS CHARACTER AN ASCIT 
CARRIAGE RETURN? 

IF NOT, PERFORM NEXT TEST. 
RESET TV COLUMN TO 

LEFT MARGIN AND 

RETURN. 


IS IT A LINEFEED CHARACTER? 
NOT, HANDLE IT AS A CHARACTER 
SCROLL TEXT UP FOR A LINEFEED. 


SINCE IT’S NOT CR OR LF, 
LET’ S SAVE IT. 
SAVE ZERO PAGE BYTES WE’ LL USE. 


SET TV.PTR TO CURRENT 
POSITION OF "PRINT-HEAD". 


GET CHARACTER TO BE DISPLAYED. 
SHOW IT. 
ADVANCE 


"“"PRINT-HEAD® TO NEXT 
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2900 
25913 
2920 
293 
2948 
2359 
2369 
297 
23538 
2999 
3068 
S216 
3023 
383G 
3649 
3659 
3380 
32708 
36893 
3096 
3199 
3119 
3129 
31323 
3148 
3154 
31693 
si7G 
3103 
31398 
3268 
3210 
3224 
3230 
3240 
S25 
3263 
3278 
32B8 
3299 
3388 
3316 
3320 
3328 
3349 
3359 

25g 

s7B 
3380 
3338 
3482 
3418 
3428 
34350 
3448 
34559 
3468 
347 


ifn 
i862 
1865 
1go7r 
195A 
1980 


i87G 


JL20 


ANDSS109 
CLB319 


DSBS 
Z4SA1B 
2O68GE 


2403i1 TVTEND 


63 


we we 


3 


we 4S ws wh we 44 wt 8 OH ws wt 


we 


we 86 4 DEA WS 


TV. COL 
TYVCOLS 


TUTEND 


. RESET 


SCROLL 


TY.POP 


JF SO, RESET 


SCREEN POSITION. 


HAS 
RIGHT 


"PRINT-HEAD" 
EDGE OF 


REACHEB 
SCREEN? 


IF NOT, FREFARE TO RETURN. 
"PRINT-HEAD” TO 
LEFT MARGIN AND SCROLL TEXT. 
RESTORE ZERO PAGE BYTES 


WE USED, AND RETURN. 


SERREEESEREEEEABEEREDASSHEEEEARAEBABEEERSEEEABESS 


SCROLL TEAT UF ON SCREEN 


BRE EEBEDAEHEBE HEBER GEREKSEESERERESEAES HBAS HE 


BEECH 240411 SCROLL JSR TVPUSH 


GEES 
GEES 
WEST 
BESSA 
DESE 
4} ws] ol 
SEGr 
BESZ 
BESS 
BESE 
BEST 
GESA 


GESB 
BESE 
GOERS 


RIBS1IT 
45 
ADEZ17 
46 
FAD55i5 
45 
ALUS415 
“5 
ADS31iS 
45 
ADS2Z15 
43 


eb2Bi1i1 
ASGA 
SUB217 
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oe 45 ws US wt se OP OU 


we we 


LDA 
PHA 
LDA 
PHA 
LDA 
FRA 
LDA 
PHAR 
LOA 
PHA 


LOR SS 


PHAR 


JSR 
LDA 
STA 


DEST+L 


TVUHOHE 
TULPTR 
DEST 


SAVE ZERC PAGE BYTES WE’ LL 
USE. 

SCROLLING IS SIMPLY MOVING 
THE CONTENTS OF SCREEN MEMORY 
UP BY ONE ROW. BEFORE We 
MOVE ANYTHING, HOWEVER. LET’S 
SAVE SA, EA, AND DEST-- 
THE MOVE PARANETERS. 


NOW SA, EA, 


SET TV.PTR TO HOME POSITION. 
SET DEST=HOPIE, SINCE WE’ LL 
MOVE THE CONTENTS OF SCREEN 


AND DEST ARE SAVED. 


3466 
34500 
3509 
3514 
3526 
3536 
3544 
3550 
3568 
35738 
3580 
3596 
3600 
3616 
3526 
3638 
3648 
3656 
3660 
3678 
3636 
3696 
3780 
37190 
3726 
3730 
3748 
3758 
3766 
37 7G 
3738a 
37390 
3858 
381G 
3826 
38308 
3840 
3856 
3866 
3878 
3884 
3690 
3900 
3914 
3939208 
3930 
33940 
3953 
33560 
39708 
3980 
399 
4606 
4019 
4624 
4232 
4044 
41956 


BEAS 
GEAS 


BEAS 
GEAB 
BEACG 
BERG 
GEBS 


BEBS 
GEBS 
BEBB 
BEBE 
BECO 
WECS 
BECS 


BECS 


BECB 
BECE 
GED 
BEDS 
SEDG 
GEDS 
BEDE 
BEDC 
BEDF 
GEEG 
BEES 


‘GEE4 


CEE? 
GEES 
GEEB 
ZEEC 
BEEF 
GEFO 
BEFS 


BEFS 


AS@1 
8BB317 


267611 
ASGB 
805215 


‘ASOL 


805315 


AEG314 
ACB414 
263C11 
AD5KG 

605415 
ASBL 

805515 


2B@D617 
ACB416 
AZHG 
24u3scll 
AEGS1a 
ABB 


201agi1 


65 
8D5215 
68 
BD5315 
68 
805415 
65 
6DS515 
58 
SDB217 
68 
SDB317 
26Dsil 


6B 


LBA 
STA 


JSR 
LDA 
STA 
LDA 
STA 


LUX 
LBY 
JSR 
LDA 
STA 
LOA 
STA 


TV.PTR+1L 


GEST+1 


TVDOWN 
TV.PTR 
3A 


TULPTR+1 


SAtTL 


TVCOLS 
TYROWS 
TUTOXY 
TVU.PTR 
EA 


TV.PTRIL 


EAtL 


MOoU.EA 
TFVROUS 
#3 

TUTORY 
TUVCOLS 
#1 

CLR.XY 


5A 


SAL 


EA 


EAL 


DEST 


BDEST+1L 
WV. POP 


MEMORY TOWARDS THE HOPE 
AGURESS. 


SET SA=AUDRESS OF SCREEN 
POSITION AT COLUMN @, ROW 1, 
THAT MARKS THE START OF 

OF THE BLOCK TO BE MOVED. 


SET EA=ADDRESS OF POSITION 
IN BOTTOM RIGHT CORNER OF 
THE SCREEN. 


EA WILL MARK THE END OF 
THE BLOCK TO BE MOVED. 


NOW SA, EA, AND DEST SPECIFY 
THE BLOCK TO BE MOVED, AND 
ITS DESTINATION. 

MOVE THE BLOCK. 

SET TY.PTR TO BOTTOM LEFT 
CORNER OF SCREEN. 


CLEAR THIS ROW. 


RESTORE THE MOVE 
PARAMETERS: SA, EA, AND DEST. 


RESTORE ZERO PAGE BYTES WE 
USED. 
RETURN. 


SFERKHERESHESSESSEASESEHSSHEASEESESER4EESSHSELIFESE 


KEYBOARD DEFINITION TABLE 


¥REGESEEKEREDBAEREREBSABKRARSLFERS ELE EESSSSEASERS 
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4b 


4479 

42g 

409% 

4196 

4118 arog 4=FOF G0 

4120 

4139 

4149 

4153 

4169 

417@ @ez7= APOSTR=%27 ASCII APOSTROPHE. 

4189 go@se= CARAT=$5E ASCII CARAT. 

4199 @@1B= ESC=513 ASCII ESCAPE CHARACTER. 
4293 gaza= SPACE=$20 ASCII SPACE. 

4219 92a9= TAB=3 ASCII TAB CHARACTER. 
4223 @i5B= BACKSL=55B ASCII BACKSLASH CHARACTER. 
4230 9B58= BACKSP=8 ASCII BACKSFACE CHARACTER. 
4249 9B5A= LERAKT=55A ASCII LEFT ERACKET. 
4258 @oSD= RBRAKT=$50 ASCLI RIGHT BRACKET. 
425@ QA7F= DELETE=8$7F ASCII DELETE CHARACTER. 
4276 ; 

478@ : 

4259 ; 

4300 @Fag 6C ATRKYS .BYTE ° 153’ .9,3,’ k+#o’ ,@,’ pu’ , CR,’ i-= 
43242 OFOl BA 

4390 FOZ 3B 

430G GFAS uA 

4200 @Fa4 ga 

4300 BFES SB 

4305 GFE 22 

4320 @FarT 2A 

4359 OFGS SF 

4389 2Fo9 aa 

4346 @FoA 7B 

4360 GFGB 75 

4259 WFEC BD 

4350 GFaD 69 

4369 O@FGE 2D 

4380 OFEF 2D 

43518 @F15 78 BYTE ‘vu’ ,@,’c’ ,3,G,’ bxz4’ ,@,’ 36’ , ESC,’ S21’ 


4318 GF1i BS 
4316 @F1l2 6&3 
43i28 GFis GH 
4314 9F14 BB 
4210 GFiS 62 
4316 OF1S 78 
43510 BFAT 7A 
4319 GFis 34 
4318 OF19 89 
4310 GF1A 33 
4315 GFLB 36 
4319 @F1C iB 
4310 GFiDd 3S 
4318 GFiE 32 
431G@ @FiF 3k 
4326 GFLH 2C »~-BYTE ’, .n’,@,’m” ,@3,’r’ ,B,’ eu’ , TAB,’ tua’ 
4320 @F21 26 
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hI DO fd 


R&A 
seo 
ayaa 


N) 


4320 
4326 
4320 
4320 
42325 


i ord & 
wee 


4320 
4325 
432 

4328 
4330 
4336 
4338 
4338 


4420 
4450 
44056 
448 
4428 
4469 
4415 
44iG 
4410 
4418 
4419 
4410 
4418 
4419 
4429 
4420 
4420 
4420 
442 

4420 


AF22 


QFe23 
Ar 24 
HF2S 
OF 26 
PF 27 
iF 2A 
@r2g 
BF en 
OFZB 
BF2C 
ar 20 
BF2E 
GF ZF 
OFS 
BFAl 
GFs2 


GF 33 


GF 34 
OF SS 
OF SG 
UF 3? 
GF 38 
O6F39 
BF SA 
OF Se 
“FSC 
GFsn 
BF SE 
GF SF 


ar 4a 
Bi 44 
BF 42 
GF 43 
ar 44 
BF AS 
GF 46 
Braz 
GF 4a 
GF 49 
ar 4a 
Gr 4y 
GAC 
GF 4D 
BF Ac 
Br AF 
BF SG 
GFS1 
GF52 
BFS3 
OF54 
QF SS 


6u 


-BYTE ’3S’ ,@,’ 97’ ,BACKSP,’ Bi >fhd’ ,9.8,° asc’ 


FOLLOWING 654 BYTES CONTAIN 
ASCII CODES FUR SHIFTED KEYS. 


-BYTE ’LG:’ ,@,@6,’ Kk’ , BACKSL, CARAT 


.BYTE ’0’ ,@,’ PU’ ,CR,’ I-= 


~-BYTE ’U’ .,°C’ ,@,8,’ B24’ 9,’ 3S’ ,ESC. art’ 
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4420 GFSG6 
4426 U@F57 
4420 GFSB 
4420 GFS59 
4426 @FSA 
4420 @FSB 
4426 GFSC 
4420 OFSD 
442@ GFSE 
4426 GFSF 
4430 GFE 
4438 OFG1 
4438 OF62 
4430 @F6S 
4430 @F64 
4430 @FSsS 
4430 GFES 
4430 G@F57 
4440 GFES 


4440 BFE6S - 


4448 @FG6A 
4449 GF6B 
4440 GF6C 
4448 @FED 
4446 @FGE 


4440 GFEF . 


4456 GF 72 
4456 OF71. 


4450 GFZ . 
4450 @F73’- 
4450 OF74 | 


4450 GF 75 
4450 OF75 
4458 OF7%. 


4460 Fre - 


4466 uF7gs 
4460 GFA 
4460 OF 7B 
4466 OFrt 
4460 GF7D 
4466 GFV7E 
4460 OFF 
4476 
4480 
4490 
45090 
451G 
4520 
4530 
4546 &Fs0 
4546 OFSL1 
4540 @F82 
4546 @FS3 
4540 OFB4 
4544 GFeS 
4540 OFSE 
4546 GFS7 
4540 OF eS 
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a) 
a} 4) 
0a 
ao 
08 
0B 
4) 
a] %) 
2) %) 


~-BYTE LBRAKT, SPACE, RERRKT,’N’ ,@,’ Mv?’ ,G 


~BYTE ’R’ ,@,’ EY’ , TAB,’ THQ’ 


-BYTE ’ (’ ,G,’ }’ ,APOSTR, DELETE,’ @ ,2,3 


~-BYTE °FHD’ ,6,8,° GSA’ 


THE FOLLOWING 123 BYTES 
CONTAIN CHARACTER COLES FOR 
CONTROL SHIFTED KEYS. EDITOR 
FUNCTION KEYS ARE DEFINED. 


~-BYTE G,0,9,09,6,59,6,0,0,0,5109,6,86,9,48,9 


4549 
4540 
4540 
45462 
4548 

4548 
4540 

4559 
4558 
4559 

4558 
4554 

45.55 
4559 

4556 

4556 
4558 

4556 
4256 
45560 
4558 
4559 

4556 
4555 

4560 

4568 

4556 

455 
4569 

4593 
4560 
4555 
4558S 
4560 
4569 
4560 

454g 

4565) 

4563 

4576 
4578 
4576 
4573 
4579 
4570 
457 
4572 
4579 
4573 
45768 
4878 
4576 
4576 
457G¢ 
4572 
4583 
4580 
4563 


SFS3 
GFEA 
GF eB 
6F SC 
GF BD 
MF OE 
SF SF 
ZF39 
OFS1 
GF S92 
| i 
BF a4 
OF25 
OrSe 
OF ST 
OFS 
OF SS 
@FSA 
wr SS 
SFSC 
GF SD 
BF SE 
GF SF 
GFA 
BFAL 
BF AZ 
GFAS 
Gra4 
QF AS 
GF AS 
OF AT 
FAS 
GF AS 
fF AA 
GF AS 
GFAC 
CrAD 
OF AE 
GF AF 
OF BS 
BF BIL 
SF BZ 
GF BS 
BF 34 
OFBS 
FES 
OF BR? 
OF Bs 
OFES 
OF BA 
GF EB 
GF BC 
GFED 
BF BE 
OF BF 
BFCH 
@rcl 
OF C2 


41%) 


0g 


Be 


AQ 


6B 
BG 


6a 


4) 


Ag 


-BYTE @,6,3,4.6,9,6,8,9,9,6.9.9,0.9.@ 


~BYTE 3,2,9,9,8,8,9,80,0,2,09,0,0,9.8,¢0 


BYTE 2,2,6,8,9,9,9,0,5,6,09,8,8,8,0,8 


-BYTE G.8,.9.6,8,9.09.9,6,9,6,9,8,8,6,2 
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45ea 
4555 
ASEB 
4500 
4508 
456 
4520) 
4568 
4565 
4550 
45399 
459g 
4553 
45973 

4594 
45S 
4595 
45953 
4596 
45323 
4590 
4S56 
4534 
459) 

4599 
4596 
4595 
4550 
4599 
469A 
4638 
4660 
4E993 
4625 
45345 
48568 
46389 
460 
4689 
4050 
4509 
460 
4E93 
4602 
46010 
4519 
4G16 
46i8 

4618 
4618 
4619 
46i 
4610 
4618 
4615 
4616 
4616 
4619 
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BFC 
BFC4 
BFCS 
aFCS 
aFCT 
arce 
SFCS 
GFCA 
BFC 
EFCC 
GFCD 
GFCE 
OF CF 
GF LZ 
OFD1 
GFD2Z 
OF D3 
ern 
GF DS 
BF DS 
QrD7 
erDe 
BFL 
@FDA 
OF LB 
AFDC 
OF DD 
GF DE 
QF DF 
GFED 
OFES 
OFEZ 
GFES 
BFE4 
SFES 
OFES 
GFE7 
BFES 
BFE 
@FEA 
@FEB 
BFEC 
KFEL 
OFEE 
GFEF 
OFF B 
GFF 1 
arr2 
GFF3 
GQFF4 
BF FS 
OFF5 
BFFT 
OFFS 
OFFS 
OFFA 
BFFE 
OFFC 


GO 


1) 


OG 


BS 


Zu 


13 


29) 


51) 


G3 


~-BYTE 9,0,6,9,9,6,0,9,6,0,.9,9,93,0.9,0 


-BYTE 2,9,9,9,9,6,9.50,6,6,4,9,8,0,4,9 


~-BYTE 8,9,8,9,0,8,2,6,6,0,0,9,8,9,9,8 


4619 FFD Hi 
46:18 OFFE 88 
4630 GFFF oo 
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Appendix DI: 


Screen Utilities 


APPENDIX D1: 


SCREEN UTILITIES 


SEE CHAPTER S OF BEYOND GAPIES: 


DUMPING $1iGO-SLIFF 


{160 
1118 
11234 
1138 
1149 
1155 
116¢G 
L176 
1180 
1199 
11AG 
1154 
11ca 
1100 
11E9G 
L1FG 


69123 45 6 7 8 9 A BC DBE F 


29 
DS 
Ss 
39 
34 
i@ 
E6 
DS 
61 
CS 
S91 
BG 
63 
SA 
48 
1 


C4 
1i 
14 
vA 
03 


es 


G1 
FS 
a8 
G1 
HG 
Li 
34 
4g 
63 
04 


li 
60 
FB 
AD 
RE 
1%) 
18 
85 
Bs 
50 
63 
25 
23 
6G 
1%) 
Ga 


2G 
BE 
20 
04 
03 
AD 
CG 
60 
is 
BS 
48 
rae 
6G 
68 
21) 
30) 


2B 
ZA 
76 
1G 
18 
BL 
ag 
28 
65 
AD 
4A 
il 
63 
AA 
GB 
Ho 


11 
ii 
11 
4A 
38 
iG 
FQ 
6a 
at 
Ql 
4A 
6B 
AA 
68 
BB 
Ba 


RE 
38 
CR 
RAS 
cc 
85 
OB 
AD 
9G 
1G 
4A 
G8 
68 
AB 
4) 4 
ae 


03 
AA 
1@ 
AD 
64 
Oi 
1s 
B2 
B2 
65 
4A 
BS 
AS 
639 
416) 
20 


SYSTEM SOFTWARE FOR YOUR 6582 PERSONAL COMPUTER. 


16 
AD 
EF 
83 
18 
48 
60 
108 
EG 
G1 
2G 
23 
AS 
85 
a) 74 
08 


AC 
GG 
9%) 


1@. 


9a 
DS 
82 
18 
BL 
28 
BG 
Or 
BL 
aa 
aa 
a) 


04 
14 
15 
4A 
@3 
aA 
16 
96 
65 
64 
1l 
C3 
48 
53 
Ga 
74 5) 


1G 
AC 
AZ 
AA 
AC 
18 
Sg 
65 
)%) 
2G 
20 
QA 
RS 
85 
BO 
215) 


24 
ZA 
a} 
38 
64 
65 
G2 
20 
33 
11 
fC 
36 
5) 
Bl 
a] | 
02 


13 
11 
AB 
EC 
16 
74) a) 
ES 
93 
AU 
1G 
Li 
82 
48 
SS 
a} 
274) 


11 
Sl 
GH 
ba 
AD 
a4) 
G1 
11 
05 
RG 
68 
69 
38 
48 
6B 
BS 


ze 
3} 0) 
18 
16 
BO 
Y3 
38 
AS 
18 
A) 44) 


24 


G6 
48 
6A 
4G 
4) 4) 


389 


Appendix D2: 


Visible Monitor (Top Level and 
Display Subroutines) 


RPPENDIX De: THE VISIBLE MONITOR CTOP LEVEL AND DISPLAY SUBROUTINES } 


SEE CHAPTER 6& OF BEYOND GAMES: SYSTEM SOFTWARE FOR YOUR 6582 PERSONAL COMPUTE 


124 MA BC MH GA 31 85 l2 66 DS 29 12 12 2G £3 12 18 
l2Zlis da F5 24 C4 11 29 25 12 26 34 12 26 5C 12 29 AF 
1223 12 2A DOB 11 6B AZ B2 AD B2 2H 3C 11 AZ 19 AB @S 
1234 24 12 li BH AS BD AD G2 2H SC 11 AB BB BC Si 12 
1244 ES 52 12 29 VC 11 EE S1 12 AC SI i2 CH BA DS FB 
12h EG GA 41 29 28 SB 2a 20 S93 28 24 56 AZ B2 AG BS 
12 24H SC 11 AD GS 12 26 AB 11 AD BS 12 26 AS 11 2B 
127 fF (1 26 94 i2 48 24 AS 11 29 7F 11 68 249 7C 1l 


1264 2u YF Ll A2 GH BU 41 12 28 AB 11 2B 7F 11 ES ED 
L2ouH 44 DB Fe 5a AS B2 46 AE B63 AD GS iz BS B2 AD BE 
L2rig e 8&5 93 Au Of BL G2 AS 68 6S G2 S6 G3 9S 6G Ai2 
L2bul N2 8H U4 25 SC il AC BB le 38 CG OB? 9G B85 AD BG 
1204 al 4 le BA CD 12 AS AG 7 14 91 GB 6B @3 BB BS 
12 tia AB KE 11 14 A BG Ba OB AD aA BB BS BA BB BA AB 
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Appendix D3: 


Visible Monitor (Update Subroutine) 


RAPPEhDIN BS: THE YISTBLE MONITOR CUPDATE SUBROUTINE) 


SEE CHAPTER 6&6 OF BEYOND GAMES: SYSTEM SOFTWARE FOR YOUR 6502 PERSONAL COMPUTER. 


DUMPING S1L2ZEG-D1L3FF 
6 12345 6 7 8 3S A BC DE F 


12Eo 6C 98 19 24 EG 12 CS 3E DG 10 EE 4H 12 AD 84 12 
L2Fa C3 fw? De B65 AS BB 8D OB 12 GH CS 3C DG GE CE BY 
12924 JZ 16 @S AS O56 BD OG 12 69 C9 26 Da BOS EE G5 12 
1318 DY O32 cE O86 i2 66 C9 BD DY BC AD BS 12 DA BS CE 
12 88 AE 86 12 EH 62 DA 1B AS AS BB 
05 12 85 44 AD 26 i2 &5 Si 38 AG BO 
$1 94 85 61 68 85 66 69 CO 47 DB 23 AC B3 12 RE 
B82 12 AD B64 12 48 AD Al 12 23 26 BC 13 BB BD GL 
l2 SE 2 12 BC 43 12 63 BD B64 lz 6G BC O5 12 48 
23 05 13 3@ 4B AS 68 35 AE BA 12 DY 14 A2 B32 1B 
i2 2E 66 12 CA 18 F6 88 BD @ i2 8D GS 12 
EG £0 B1 DZ 16 23 BF 48 2B 94 12 GA BOA BA BA 29 
FH 3D AC 13 6B BD AC 13 240 2D 13 64 BH CA CA CA 
Ff 63 15 if B@1 12 68 16 FSG 1D Bi 12 9D G1 12 &B 
ES <3 fF DG O64 26 90 11 63 C9 S1 DS @4 63 &S 2B 
68 38 ES 38 9G GF CS GA 30 GE ES 87 
38 C3 GA BS G3 ASD FF 66 AZ OO 6B BB 
na OO BU GB OG BB BY BU OU O4 G4 GB ZA 


— ep be 
wt 

Oo som oF me wf 
Wm @ 

& & 
no 
De 
cn 
gQo 

re 7] 
DQ 

cs ul 


ra guard waoaons ete 
1%) 
m™ 
a 
a3 


at cy om DP 


rot 
= 
on 
to WS) 
be J 
Og © 
on to 
Q 2 
ore 
ul 


ww Qa ww Ww od we 


en ee en ee 


7 7 
G5 
@ 
CG! 
WN 
ss) 
) 
w 
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Appendix D4: 


Print Utilities 


APPENDIX D4: PRINT UTILITIES 


SEE CHAPTER 7 OF BEYOND GAMES: SYSTEM SOFTWARE FOR YOUR 6582 PERSONAL COMPUTE 


DUMPING $1490-3154F 
B1l23 45 6 7 8 FS A BC BE F 


1496 FF FF @6 29 @6 @G@ @C 15 AD FF SD @1 14 &B@ AD BO 
1418 SD G1 14 60 AD FF 8D BB 14 60 AS BOO CD OG 14 66 
1426 AS FF SD @2 14 6G AS BG BD G2 14 66 2 US 14 2B 
1436 14 14 2G 24 14 SO 2@ GE 14 2G 1A 14 28 26 14 6B 
1449 C3 6B FO 24 SUD G3 14 AD G1 14 FH OG AD BS 14 26 
1458 653 14 AD GO 14 FU GB AD G3 14 2B GC 14 AD G2 14 
1460 FG 96 AD @3 14 26 GF 14 68 BC BA 19 BC AC 14H &C 
1479 BE 10 ADS BD 26 46 14 AS BA 2D 40 14 BY AS 2G 2B 
1480 44 14 GU 46 4A 4A 4A 4A 24 BG Ill 26 40 14 68 24 
14990 B6 li 246 49 14 64H ASD 2H SE 64 14 46 AE G4 14 F@ 
14AG GA CE 84 14 26 46 14 68 15 36 FG 68 6B SE 44 14 
14Ba AE B64 14 FO GS CE B64 14 20 72 14 18 9B F2 64 SE 
14c@ BS 14 BS O1 48 BS O68 45 AE G5 14 AL BG CO FF FB 
1470 6C F6 GG 0G B2 F6 G1 2H 46 14 18 96 EB 68 35 BG 
14EG 68 95 @1 6G 6&8 AA 6B AS 26 12 15 BE G5 i2 BC B6 
14F6 iz 24 @D 13 26 @D 13 26 94 12 CO FF FH 86 24 40 
i504 14 18 94 FU ARE OS 12 AC GG 12 26 2B 15 38 40 BA 
IS1@ 43 66 68 3D G6 14 68 &D BG? 14 AD BG 12 46 AD BS 
1526 12 45 AD G7 14 48 AD O6 Ll4 46 64 68 BD OS 14 GB 
15393 BD 67 14 68 SB OS 12 668 SB B6 12 AD @? 14 48 AD 
154G 6 14 48 66 GO GB GO BO BE GO BG OS BOO AU Ba GG 
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Appendix D5: 


Two Hexdump Tools 


APPENDIX DS: TWO HEXDUMP TOOLS 


SEE CHAPTER 8 OF BEYOND .GAMES: SYSTEM SOFTWARE FOR YOUR 6582 PERSONAL COMPUTER 


DUMPING $1556-$17AF 
912345 858 7 8 3S A BC DE F 


1558 66 64 58 15 AF 17 84H 20 88 14 AD S1 15 BD 52 15 
1556 AD @5 12 25 FS SB @S 12 24 72 14 26 72 14 2G Al 
1570 15 26 72 14 29 7D 14 26 SA 15 28 BD 13 AD GS 12 
1586 23 G7 DS FO 24 72 14 AD OS 12 29 GF DB 43 20 72 
1594 14 CE 50 15 DG DS 26 GE 14 6H 246 34 1l2 2B 83 14 
15AB 66 AD 66 12 26 &3 14 AD @ i2 26 63 14 6H 2B cg 
15BG 15 20 £9 15 2a AG 1? 2G 14 14 26 EB 16 20 42 17 
inca 16 FB 26 72 14 26 1A 14 69 26 GH 1l 20 BS 14 24 
1SDG E4 14 7F 0D 5@ S2 49 4E 54 49 4E 47 28 48 45 SS 
1ISES 44 55 4D SQ OD OA GA FF GH 20 BB i4 2G E4 14 PF 
L5F@ OD GA 53 45 54 26 53 54 41 S2 54 49 4E 47 20 41 
1660 44 44 52 45 53 53 20 41 4E 44 20 SZ S2 45 53 53 
1519 2G 22 Sl 22 2E FF 20 OY I2 26 SY 16 2H BS 14 2G 
1626 £4 14 7F OD BA 53 45 54 28 45 4E 44 26 41 44 44 
1636 S2 45 53 53 26 41 4E 44 20 58 52 45 53 53 26 22 
1642 5l 22 2E FF 20 @7 12 38 AD GS 1l2 CD 53 15 9G 24 
1656 D2 68 AD @S 12 CD S2 15 SG 1A AD BS l2 BD 55 15 
1660 AD 6S 12 8D 54 15 6H AD G6 12 8D 53 15 AD OS 12 
1673 8D 52 15 68 20 £4 14 7F GD DA OA BA 26 45 S2 S2 
1680 4F S52 21 21 21 28 45 4E 44 20 41 44 44 S2 45 S3 
1699 53 20 4C 45 $3 53 29 54 48 41 4E 28 53 54 41 52 
1SAG 54 20 41 44 44 52° 45 53 53 2C 24 S7 48 49 43 48 
16B9 20 43 53 20 FF 20 BB 16 4C iC 16 AD 24 20 46 14 
16C@ AD 53 15 23 83 14 AD S2 15 26 83 14 63 AD 24 20 
16D4 46 14 AD 5S 15 24 33 14 AD S4 15 26 83 14 6B 2a 
1G6EB BB 16 AS 2D 2B 49 14 20 CD 16 &S@ 26 E4 14 7F SD 
16F0 BA GA 44 SS 4D SO 49 4E 47 26 FF 20 DF 16 29 72 
1708 14 2@ £4 14 7F GA BA 2B 2B 20 29 28 20 24 28 32 
i71a 246 20 31 26 23 32 26 20 33 29 290 34.20 26 35 28 


1726 
172328 
1740 
L758 
1760 
i772 
1750 
1734 
17AG 


28 
42 
FF 
Fa 
@D 
1S 
Da 
BS 
AD 


36 
20 
6G 
SD 
AZ 
28 
EC 
12 
52 


2B 
26 
26 
0S 
83 
7D 
6B 
cD 
iS 


394 BEYOND GAMES 


20 
43 
72 
12 
20 
14 
38 
54 


8D 


37. 
<0 
14 
2B 
35 
20 
AD 
1S 
6S 


20 
24 
AD 
AL 
14 
83 
66 
BG 
12 


20 
44 
as 
1S 
20 
17 
12 
a6 
AD 


3¢ 
28 
12 
AZ 
4D 
36 
CD 
26 
S53 


28 
20 
48 
03 
13 
ahs) 
55 
6B 
15 


28 
45 
29g 
28 
CE 
AD 
15 
13 
8D 


339 
23 
OF 
36 
56 
5 
36 
AS 
86 


28 
2y 
6D 
14 
15 
12 
QB 
1%) 
12 


20 
46 
56 
AD 
DY 
29 
Da 
6B 
68 


41 
ap 
is 
56 
F3 
@r 
i) 
AS 
06 


26 


GA. 


B38 
15 
29 
cg 
38 
FF 
aa 


2G 
OA 
2a 
FG 
3A 
GG 
AD 
6G 
GG 


Appendix Dé: 


Table-Driven Disassembler (Top 
Level and Utility Subroutines) 


APPENDIX BS: 


SEE CHAPTER 3S OF BEYOND GAMES: SYSTEM SOFTWARE FOR YOUR 6562 PERSONAL COMPUTER 


TABLE-DRIVEN DISASSEMBLER 


BUMPING $1999-S1ASF 


1950 
1919 
1928 
19239 
1949 
1958 
1860) 
1370 
1929 
1939 
19AY 
1920 
isca 
190 
19EB 
igre 
LAG 
LALG 
1Az9 
1A26 


4) 


GA 


AS 


1 


66 
is 
01 
GR 
43 
ES 


Cc 
) 


20 
26 
59 
19 
23 
15 
13 
AS 
58 
eB 
DS 
Al 


2h 


(TOP LEVEL AND UTILITY SUBROUTINES) 


2 3 4 5 6 7 8 3S A BC DE F 


SA 
FF 
Da 
20 
4 
28 
40 
14 
19 
a3 
42 
AA 
as 
94 
DS 
49 
19 
AD 
20 


1s 


49 
8D 
FS 
28 
a3 
14 
42 
23 
2G 
SE 
14 
28 
13 
12 
B2 
14 
=} oe 
08 
rat 
26 


LA 
54 
6a 
26 
53 
14 


Fa 
Ne 


7D 
7D 
82 
ARE 
B3 
6C 
48 
AS 
68 
86 
13 
14 
72 


FF 
15 
29 
20 
45 
2a 
4g 
19 
14 
19 
Ba 
19 
a4 
20 
29 
Ag 
13 
Eg 
20 
14 


a4 
BD 
1A 
5a 
4D 
E4 
4 
18 
68 
AR 
19 
6a 
19 
@D 
20 
2C 
cA 
a4 
9A 
Ea 


20 
15 
Za 
49 
4C 
7F 
20 
20 
AF 
AD 
CE 
1B 
aD 
2G 
14 
40 
26 
Q7 
29 
aa 


a8 
20 
BB 
4E 
45 
aD 
FF 
1A 
19 
1c 
az 
1B 
13 
9A 
14) 
14 
20 
19 
aD 
20 


14 
f2 
14 
S4 
52 
BA 
2B 
14 
28 
AR 
13 
6D 
2a 
1S 
AS 
AS 
1A 
2s 
13 
a} 


AD 
14 
20 
49 
2E 
44 
DF 
BS 
B1 
BD 
ng 
a4 
gA 
6B 
2C 
53 
13 
AR 
CE 
Bo 


19 
7D 
14 
47 
BR 
53 
2G 
34 
2B 
15 
64 
ES 
64 
83 
43 
46 
19 
36 
13 
4) 5 


r=4B) 
13 
7F 
20 
FF 
AL 
AG 
12 
83 
SE 
AA 
BD 
20 
14 
14 
14 
FA 
14 
18 
9a 
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Appendix D7: 


Table-Driven Disassembler 
(Addressing Mode Subroutines) 


APPENMDIN DT: TRELE-BRIVEN DISASSEMBLER CADDRESSING MODE SUBROUTINES) 


SEE CHAPTER 3S OF BEYOND GANES: SYSTEM SOFTWARE FOR YOUR 6542 PERSONAL COMPUTE 


DUMPING B1A40-S1B4F 
6B 12345 6 7 8 8S A B C BE F 


1A4a 26 CF 19 A2 2 AS B4 6B 24 440 1A 2H EB 19 A2 G2 
1ASS AS G6 66 26 4G 1A 240 FG 19 AZ B2 AD BG GH AS 41 
LAEB 26 44 14 AZ 8G AD Gi 640 AZ BE AS BY GH AD 23 2B 
LATB 46 14 AS 24 26 46 14 26 C8 19 AZ G1 AD 04 GB 24 
ifea El 19 26 40 1A 26 E5 19 AS GS AZ G2 6G 26 £1 19 
LASS 2G ES 1A 28 £5 19 A2 G1 AD BB 6G 26 £1 19 29 BB 
LARS ffi 26 £5 153 26 F6& 19 A2 G1 AD BB GA 24 BD 13 20 
LABS 12 15 26 94 12 48 26 OD 13 6S CS 44 16 43 CE GE 
ifiCd 12 88 Bs 18 6D @5 12 396 43 EE 86 le BD HS 12 28 
1AGS 24 AL 15 26 2B 15 A2 B61 ASD 64 BH AS BA 20 83 14 
LSES 26 CS 19 AZ G1 AS B64 6B 2A DE 1A 20 EB 19 A2 G1 
LATS AS 66 66 2B DB iff 26 FG6 i939 A2 Bi AS GS 64 6&8 68 
LEAag 68 68 29 83 17 39 @D 24 594 1i2 CS FF FG G6 26 4G 
1B16 14 i8 S4 EE 26 72 14 28 83 17 64 65 1A SE 1A ED 
1B29 1A DE 1A ES 1A FS 1A 46 iA 48 1A S53 LA 68 1A AC 
1538 1A SD 1A OB IA VF IA FE 1A 8G GG 848 86 OO BA Bb 
1E43 OG 89 69 26 86 6B 49 BG G4 GO 26 BO BB Ge GU AG 
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Appendix D 


Table-Driven Disassembler (Tables) 


APPENDIX Be: 


SEE CHAPTER 3 OF BEYOND GAMES: SYSTEM SOFTWARE FOR YOUR 5502 PERSONAL COMPUTER 


DUMPING $1ES0-S1DFF 


1BSG 
1566 
IB? 
1BEa 
1538 
1BAS 
1B8d 
1BCGa 
LBDG 
LEEG 
1BFG 
1CHgG 
1C1¢g 
1724 
10398 
1C4G 
1C5G 
1C6B 
iC73 
1C&B 
1CS@ 
1CAB 
1CBG 
1CcgG 
{cng 
1CEB 
1CF@ 
1DaG 
1016 


8 


TF 
42 
5B 
44 
44 
4E 
S38 
= 
54 
43 
54 
22 
IF 
Ss 
19 
7F 
2s 
a2 
28 
G1 
GD 
61 
18 
3D 
1C 
3A 
13 
12 
14 


TRBLE-DRIVEN DISASSEMBLER 


C TABLES 3 


12345 6 7 8 9 A BC DE F 


42 
43 
4C 
43 
45 
58 
4C 
43 
49 
53 
53 
SA 
5A 
Hr 
a7 
495 
43 
64 
Y\-+4 
Si 
Si 
5B 
5B 
37 
37 
85 
35 
is 
18 


SE 


44 
42 
52 
4g 
44 
4E 
sg 
59 
54 
41 
54 
B1 
G1 
G1 
Al 
Q1 
Bi 
Bi 
ai 
G1 
G1 
Al 
Bi 
Gi 
Bl 
Gi 
ai 
aa 
ao 


41 
45 
45 
43 
45 
53 
4c 
4C 
53 
53 
ng 
OL 
Gi 
16 
Gi 
YL 
B1 
G1 
G1 
37 
97 
61 
61 
30 
BL 
3A 
Gl 
06 
HG 


44 
51 


42 ! 


4C 
53 
4A 
53 
41 
S3 
54 
41 
6A 
BA 
ay 
Or 
49g 
43 
64 
64 
Si 
91 
2B 
SB 


a 
— 


37 
3S 
ES 
G6 
BE 


41 
49 
43 
43 
4S 
5g 
4E. 
4c 
43 
53 
55 
G1 
Bi 
Gi 
OL 
Bl 
Bl 
Bl 
G1 
O1 
61 
G1 
41 
OL 
G1 
Gi 
G1 
Be 
ag 


4E 
54 
42 
4D 
59 
4A 
4F 
sa 
S3 
54 
53 
7a 
2B 
76 
58 
6D 
31 
73 
SE 
46 
AS 
Hi) 
34 
52 
2E 
4F 
eB 
12 
12 


41 
4D 
53 
42 
4F 
52 
4F 
4F 
43 
54 
59 
GA 
G1 
7g 
al 
64 
ai 

7c 
al 
AS 
AS 
9A 
SE 
43 
Bl 
S7 
B1 
Bz 
aa 


53 
43 
43 
Su 
52 
4¢ 
52 
4C 
53 
41 
41 
a1 
B1 
B1 
Oi 
Bi 
G1 
41 
61 
Al 
Bl 
@1 
ane 
O1 
Bl 
G1 
G1 
434) 
06 


4C 
42 
4C 
Sa 
43 
44 
4) 
52 
45 
58 
54 
BL 
BL 
16 
B1 
55 
Bi 
55 
G1 
97 
G1 
Gi 
61 
2D 
Gi 
3A 
BL 
aa 
al 


42 
4E 
43 
43 
4E 
41 
SB 
ar 
44, 
54 
45 
6A 
GFA 
G7 
a7 
43 
49 
a4 
a4 
Si 
91 


S55 ! 


SB 
37 
3Yr 
6S 
6S 
Mic 
L6 


43 
45 
43 


4C 


43 
42 
4C 
53 
49 
44 
Al 
52 
45 
sg 
FF 
G1 
Bl 


3 BL 
S GL 


Bi 
Gi 
G1 
AC 
G1 
a1 
1 
Al 
Bl 
O1 
Gi 
Bi 
Sep) 
94 
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1D20 
103@ 
1040 


1050 


iDeg 


1D7@. 


1pag 
iDSsG 
1DAG 
1DBa 
LDCB 
1DDB 
1DEG 
1DF@ 
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BC 
i4 
12 
14 
12 


14. 


4) 74) 
14 
B4 
14 
64 
14 
04 
14 


16 
18 
is 
1s 
16 
i8 
16 
1s 
16 
18 
i6 
18 
16 
18 


2) 4) 
AG 
G9 
1%) 


0G. 


4) 
254) 
AG 
G4 
20 
8G 
4) 3) 
AB 
514) 


121) 
4) 4) 
GB 
4) %) 
OB 
ag 
a1) 
0B 
BB 
6G 
aoa 
Ba 
GB 
OG 


G6 


G0 
BG- 


Bu 
5) 
6B 
as 
0B 
06 
a3 
05 
BG 
BS 
4) 4) 


4) =) 
88 
BS 
68 
26 
AS 
45 
BS 
GE 
a3 
9S 
2B 
6 
BS 


G6 
48 
aS 
68 


as. 


us 
AS 
YA 
66 
2A 
G6 
68 
06 
BS 


a) 
a4) 
41%) 
0G 
aN) 
14) 
2} 
BB 
AG 
a9 
a 
4G 
ab) 
BY 


12 
12 
L2 
12 
12 
12 
12 
12 
12 
14 
12 
12 
12 
12 


64 
1d 
BC 
16 
a4 
18 
4) 
14 
04 
19 
04 
1a 
04 
1G 


G2 
14) 


G2 


0 
G2 
4)7) 
12 
12 
12 
12 
1Z 
2) 
i2 


1) G) 


4G 


‘ga 


a) 
21%) 
69 
a2 
HG 
14} 2) 
GA 
Ga 
4) 4) 
8G 
HG 
BG 


6C 
4) 4) 
4c 
14) 
1A 
1) 
BC 
a) 4) 
gc 
4E 
BC 
%) 5) 
GC 
2} 


aC 
GE 
BC 
GE 
uc 
BE 
ac 
BE 
ac 
GE 
BC 
PE 
GC 
GE 


BC 
GE 
BC 
GE 
9C 
BE 
ac 
71%) 
6c 
1 
GC 
BE 
BC 
BE 


2) 4) 
234) 
a) 
69 
GG 
ic 
0G 
06 
a) 
68 
14) 
BB 
4)%4) 
a) a} 


Appendix 


Move Utilities 


APPENDIA 


SEE CHAPTER 1G OF BEYOND GAMES: SYSTEM SOFTWARE FOR YOUR 65822 PERSONAL COMPUTER 


DS: 


BUMPING $17BO-S18FF 


1VEX 
17ce 
17DG 
1Lre3 
l7vF 
1899 
1614 
1823 
1639 
1S44 
1858 
1668 
1Sro 
15a 

Lag 
\5AG 
1689 
18CG 
1sDm 
1Se0 
Lora 


0 


0G 


SZ 


MOVE UTILITIES 


D9: 


1 23 45 6 7 8 JA BC DE F 


Bo 
26 
ES 
BG 
al) 
B3 
AG 
158 
G1 
F5 
ES 
Al 
2 
GB 
EC 
4C 
85 
BA 
26 
12 
31) 


39 
4D 
15 
17 
6a 
\7 
2 
Ag 
ES 
4C 
FF 
ce 
ES 
91 
29 
iL 
2 
53 
4h 
AD 
ate 


n4 
4F 
20 
Ba 
AG 
33 
68 
Bo 
93 
11 
Bg 
38 
a3 
B2 
A4 
18 
AD 
45 
4E 
a5 
a3 


2a 
56 
Bg 
G2 
623 
46 
ag 
AE 
CR 
is 
OL 
60 
AS 
BS 
18 
AD 
B53 
24 
44 
12 
14} 2) 


14 
20 
AE 
38 
aie) 
18 
ga 
17 
F2 
Bl 
AR 
15 
SD 
Fg 
Ba 
15 
85 
44 
5B 
BZ 
rata) 


2G 
54 
5S 
SA 
234) 
AD 
C8 
FG 
B5 
i? 
54 
65 
B3 
Bl 
lf 
65 
G3 
45 
52 
17 
2) 4) 


E4 
4F 
1s 
ED 
48 
52 
cB 
BE 
cs 
FQ 
a3 
a1 
17 
2 
Bi 
aa 
5a 
53 
45 
AD 
a2 


14 
4F 
33 
53 
oS 
15 
B+ 
Bl 
Bl 
45 
BA 
5A 
5S 
Ji 
4} 24) 
AD 
2 
54 
53 
46 
B23 


7F 
4c 
AD 
15 
18 
cD 
bg 
ag 
aa 


Feng 
‘Ne 


16 
18 
Os 
W2 
Sl 
53 
85 
493 
53 
12 
46 


oD 
en 
54 
6D 
FS 
B2 
F7 
Si 
31 
Bl 
6D 
6D 
AE 
C6 
82 
is 
14 
AE 
29 
SB 
S74) 


HA 
OD 
15 
Bl 
28 
1? 
AS 
82 
G2 
17 
52 
B2 
BL 
G1 
63 
85 
26 
41 
ol 
BS 


BG 


26 
BA 
ED 
17 
AD 
17) 
FF 
cs 
cc 
aye 
15 
17 
17 
CS 
ca 
Bi 
E4 
54 
2E 
17 
ao 


2a 
BA 
52 
BO 
53 
36 
6B 
1g 
Ba 
Ba 
gS 
BS 
AG 
az 
FF 
AD 
14 
43 
FF 
62 
Ba 


29 
FF 
15 
ag 
15 
Dg 
2B 
Fg 
17 
17 
aq 
Bz 
FF 
cA 
112) 
P2 
7F 
4 
26 
a) 
2a 


399 


Appendix D10: 


simple Text Editor 


APPENDIA 018: A SIMPLE TEXT EDITOR 


SEE CHAPTER 1i1 OF BEYOND GAMES: SYSTEM SOFTWARE FOR ‘OUR G6S92 PERSONAL COMPL 
BY KEN SKIER 


DUMPING SLEGO-SIFFF 
91l2345 6 7 8 9 A BC DBE F 


1EG0 FF @1 20 OF LE 24 37 1E 29 C8 if 18 18 9G FS 20 
1E19 08 14 26 E4 14 7F GD GA BA 53 45 54 24 55 SB 2B 
1E26 45 44 49 54 20 42 55 46 46 45 52 2£ BD GA GA FF 
1E36 26 ES 15 26 AG 17 GG 26 C4 11 20 2B 11 AE BS 16 
1E46 AB @3:26 13 11 26 2B 11 24 75 11 26 C4 11 26 SE 
1E5¢4 LE 20 03 li 2@ 76 11 28 89 1E 26 D3 11 60 26 12 
1E6¢ 15 AD G3 16 4A AR CA CA 24 1A 13 CA 19 FA AD GS 
1E7Q9 1@ 8D 66 1E 26 94 12 26 SB 11 20 7F 11 28 SD 13 
1E60 CE 66 1E 16 EF 26 2B 15 66 AD BS iG 4A ES G2 2A 
1ESG G1 if AD Gi 1E CS @i DB @S AS 49 18 9B G2 AD AF 
LEA 2@ SB 11 AS @2 26 Si 11 AD UB? 18 26 GB 11 AD GZ 
LEBS 26 8i 11 AD @B6 12 26 AS ii AD BS 12 2H AS 11 6A 
1ECa 86 03 3E 3C 18 7F Si OY 24 EB 12 CD C6 1E DG 17 
1EDG 48 26 9 12 CD C6 1E BS 64 68 68 68 6d 8D C7 le 
1EEG 68 26 E7 if AD C? LE CD Cl LE BG BB CE G1 LE 190 
1EFG @5 AS @1 BD G1 1€ 6G CD C2 IE DG 84 29 73 1F 6B 
iF ae CD C3 1E D8 84 24 87 IF 6B CD C5 LE DG B4 2B DD 
1F 19 iF 6@ CD C4 LE 06 64 2@ C5 IF 6G CD CH IE DB 4 
1F2e 26 B4 1F 6B AE G1 IE FG O4 26 34 IF 6B 24 20 13 
1F3¢ 24 83 17 50 48 24 12 15 AD 53 15 48 AD S2 1S 48 
1F 40 AD SS 15 48 AD 54 15 48 20 G7 16 28 83 17 30 il 
1FS@ 26 E2 18 AD 54 15 De 64 CE 55 15 CE S4 15 26 DG 
1F 6S i? 68 80 54 15 68 3D 55 15 68 8D 52 15 68 8D 53 
iF 7G 15 26 2B 15 66 26 2D iF 66 26 34 12 CO FF FG O4 
lFsa 24 83 17 66 AS FF 66 38 AD SS 15 CD BG 12 9G BC 
1F 36 DO 18 AD 52 15 Cb @& 1l2 Fe i? BS GG 24H 1A 13 AD 
LFAG @@ 66 AD 52 15 8D BS 12 AD 53 15 BD GG 1l2 AY OB 
IF BG 50 AD FF 66 20 AB 17 AS FF 24 2D 13 24 83 LY 16 
1FC@ FE 26 AB LY 64 2O AB Ll? 2@ 14 14 2B 34 12 CS FF 
iF Da FB 68 20 40 14 24 83 17 14 Fl 4C 1A 14 206 12 15 
IFE@ AD 53 15 48 AD S2 15 48 26 E2 18 20 83 17 26 67 
LFFG 16 26 D6 17 68 8D S2 15 68 8D 53 15 24 2B 15 GY 


400 BEYOND GAMES 


Appendix DI: 


Extending the Visible Monitor 


APPENDIX O11: EXTENBING THE VISIBLE MONITOR 


SEE CHAPTER 12 OF BEYOND GAMES: 


DUMPING #1G80-SiSFF 


185 
19CG 
16D 
LHEG 
1GFS 


@tile23ase45 8 7 8 SA BC BE F 


c9s 59 D8 89 AD BB 14 49 FF 8D 82 14 62 C9 55 BA 
6S AD 62 14 49 FF SD G2 14 64 CS 48 DB BD AD Ga 
14 DG 64 29 S7 15 68 2@ AE 15 6&6 CS 40D DG G4 28 
B4 17 66 CS SF DQ GD AD 4&6 14 DB 44 2B Bs 19 6A 
24 265 13 66 CS 54 DO 94 26 G2 IE 69 &8 ae Ga BD 


SYSTEM SOFTHARE FOR YOUR G52 PERSONAL COPIPUTER. 


401 


Appendix EI: 


Screen Utilities 


APPENDIX EL SCREEN UTILITIES 


THE FOLLOWING DATA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSUMS FOR MEMORY FROM 4352 TO 4667 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
BATR 
DATA 
BATA 


1008 
1661 
1882 
1903 
1004 
1005 
16056 
1607 
1008 
1963 
1616 
1G11 
1912 
1613 
1614 
1615 
1816 
1617 
1618 
igig 
1626 
1621 
1922 
1923 
1624 
1625 
1626 
1827 
1428 


4352, 
4360, 
4368, 
4376, 
4384, 
4392, 
4408, 
4498, 
4416, 
4424, 
4432, 
4448, 
4448, 
4456, 
4464, 
4472, 
4480, 
4488, 
4496, 
4504, 
4512. 
4520, 
4528, 
4536, 
4544, 
4552, 
4568, 
4568, 
4576, 


32, 156, 17, 
16, 172, 4, 

Zil, 17, 96, 142, 42, 17, 
173, 6, 16, 172, 42, i7, 145, @, 494 
136, 15, 251, 32, 118, 17, 262, 16, 

233, 96, 25, 162, G@, 160, @, 24, 509 
144, 16, 173, 4, 16, 74, 168, 173, 5 
3, 16, 74, 178, 56, 236, 3, 16, 
144, 3, 174, 3, 16, S6, 204, 4, 
16, 144, 3, i172, 4, 16, 173, G, 
16, 133, @, 173, 1, 16, 133, 1, 
8, 2i6, 138, 24, 101, @, 144, 3, 507 
230, 1, 24, 152, OB, 244, Ll, 24, Si? 
165, 2, 16, 144, 2, 234, 1, 136, 569 
268, 245, 133, @, 40, 936, 173, 2; 
15, 24, 144, 5, 32, 155, 17, 169, 508 
1, 8, 216, 24, 101, @, 144, 2, 4976 

236, 1, 133, @, S65, 173, S,, 
197,. 1, 176, S, 173,. 1, 16, 
i, 44, 96, 32, 17, 16, 160, 
145, 8, 96, 72, 74, 74, 74, 
32, 182, 17, 32, 124, 17, 104, 
18zZ, 17, 32, 124, 17, 96, G6, 216, 
41, 15; 21, 18, 468, 2, 145, 6, 
165, 45, 40, S96, 104, 170, 104, 
iss, 1, 

138, 72, 
133, @, 

v2, 36, 


32, 43, 
16, 32, 


17, 
19, 17, 32, 


174, 3, 486 
4668 


5620 


133, 
8. 4865 
74, 5i2l 


168, 


36, 104, 170, 
144, 133, 1, 152, 
GB, G, G, B, G, G, 


72, 
4744 


136, 


& 


i52, 178, S2i5 


7 
S172 
= | 
162 


4982 


4352 
4995 


4 
5) 
6 


5361 


34 


16, 5102 
5198 


32, 5668 
5220 
4964 


S373 


72, 165, 8, 72, 152, 72, S251 
164, 168, 164, 
5381 


5516 


403 


1929 DATA 4584, @, 
1030 DATA 4592, @, 
1931 DATA 4680, @G, 
1632 END 


OK 
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a, 
0, 
0, 


Appendix E2: 


Visible Monitor (Top Level and 
Display Subroutines) 


APPENDIX E2 VISIBLE MONITOR (TOP LEVEL & DISPLAY SUBS) 


THE FOCGLLOWING DATA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSUMS FOR MEMORY FROM 4568 TO 4831 
SUITABLE FOR LOABING WITH 

THE BASIC OBJECT CODE LOADER. 


1196 DATR 4668, @, 12, G, B, 49, 177, 252, 8, 5186 

1141 DATA 4615, 216, 32, 18, 18, 32, 227, 18, 24, S2a1 
1162 DATA 4624, 144, 246, 32, 195, 17, 32, 37, 18. 5346 
1iG@3 DATA 4632, 32, S52, 18, 32, 92, 18, 32, 175, 5853 
1164 DATA 4640, 15, 32, 211, if, SG, 162, 2, 160, 533 
11465 DATA 46495, 2, 32, 64, 17, 162, 25, 164, 3, 5199 
1166 DATA 4556, 32, 19, 17, 96, 162, 13, 160, 2, SIS7 
1197 DATA 4554, 32, 6G, 17, 160, @, 148, 81, 18, 5172 
1198 DATA 4672, 185, 82, 18, 32, 124, 17, 238, 81, 5449 
1169 DATA 4684, 138, i772, 81, 18, 192, 10, 208, 240, 5519 
1119 DATA 4688, S6, 10, 65, 32, 32, 88, 32, 32, S875 
11i1 DATA 4656, 89, 32, 32, 84, 152, 2, 164, 3, 5256 
1lilzZ2 DATA 4704, 32, 64, 17, 173, 6, 18. 32, 163, 5205 
1113 BATA 4712, 17, 173, 5, 18, 32, 1639, 17, 32, 5169 
1114 DATA 4726, 127, 1?, 32, 148, 18, 72, 32, 163, 5329 
1115S BATRA 4728, 17, 32, 127, 17, 144, 32, 124, 17, S198 
1116 DATA 4735, 32, i127, 17, 162, @, 189, 1, 18, 5282 
1117 DATA 4744, 32, 163, 17, 32, 127, 17. 232, 224, S558 
1118 DATA 4752, 4, 265, 242, 96, 165, 2, 72, 166, S77 
1119 DATA 4764, 3, 173, 5, 18, 133, 2, 173, 5, 5273 

1126 DATA 4768, 18, 135, 3, 156, G, 177, 2, 168, 54295 
1121 DATA 477G, 104, 133, 2, 134, 3, 152, 96, 162, S562 
liz2 DATA 4784, 2, 16G, 4, 32, 60, 17, 172, G. S231 

1123 DATA 4792, 18, 56, 192, 7, 144, S, 150, @, 5374 
1124 DATA 4899, 148, @, 18, 185, 285, 18, 168, 173, S7a7r 
1i2S DATA 4808, 7, 16, 145, G, 95, 3, 6 8&8, 58303 


1126 DATA 438165, 11, 14, 17, 26, @, @, O, GB, 4878 
ll2r DATA 4824, @, @, @, B, G, @, GB, G, 4824 
1128 END 


406 BEYOND GAMES 
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Visible Monitor (Update Subroutine) 


APPEMBIAX ES 


VISIBLE MONITOR CUPDATE SUBROUTINE 3 


THE FOLLOWING DRTA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSUMS FOR MEMORY FROM 46832 TO 5119 
SUITABLE FGR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


12698 
1294 
L2ijy2 
1283 
1264 
1245 
1286 
1257 
1225 
1293 
1214 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1215 
1219 
1228 
i2z1 
1222 


7772 
i 


lé2c4 
1225 
1225 
1227 
1228 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT FH 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
UATA 
LATA 
DATA 
DATA 


4932, 
4540, 
4848, 
4856, 
4564, 
4872, 
4380, 
4988, 
4826, 
4914, 
4912, 
4329, 
4325, 
4936, 
4944, 
4952, 
4368, 
4985, 
4975, 
4384, 
4992, 
Saag, 
Sea8, 
Sais, 
E24, 
S932, 
sada, 
5048, 
5@56, 


108, 8, 16, 32, 224, 18, 201, 62, S5GL 
298, 16, 238, @, 18, 173, 8, 18, S511 
201, 7, 208, 5, 1689, @, 141, @, 5575 
18, 96, 261, 6H, 27a8, 11, 285, BO, S656 
18, 16, 5S, 169, 6, 141, @, 18, 5237 

95, 261, 32, 288, S, 238, 5, 18, 5679 
208, 3, 235, 6, 18, 958, 201, 13, S663 
zag, 12, 173, 5, 18, 288, 3, 296, S721 
6. 18, 206, 5, 18, 95, 174, @, 5419 

18, 224, 2, 283, 27, 188, 165, B, 5716 
72, 166, 1, 173, 5, 18, 133, @, 5458 
i73, 6. 18, 133, 1, 152, 189, 9, 5583 
145, @, 134, 1, 184, 133, @. 96, 5541 
261, 71, 248, 35, L172, 3, 18, 174, 5818 
2, 15, 173, 4, 18, 72, 173, 1, 5485 

18, 49, 32, 198, 19, 8, 141, 1, 5219 
18, 142, 2, 18, 148, 3, 18, 164, 5405 
14i, 4, 13, 96, 165, 5, 18, 72, S439 
32, 213, 19, 48, 7S, 168, 194, 152, 5787 
174, @, 18, 268, 24, 162. 3, 24, 5593 
14, 5, 18, 45, 6, 15, 282, 16, 5317 
246, 152, 13. 5, 18, 141, 5, 18, 5593 
96, 224, 1, 208, 24, 41, 15, 72, 5889 
32, 149, 18, 18. 16, 1G, 18, 41, 5295 
240, 141, 172, 19, 194, 13, 172. 19, 5984 
32, 45, 19, 95, 15, 22, 282, 282, 5846 
169, 3, 24, 38, 1, 18, 135, 15, 5429 
249, 29, 1, 18, 157, 1, 18, 95, 5617 
144, 201, 127, 208, 4, 32, @, 17, S749 


407 


1229 DATA 56654, 
1239 DATA 5Sb72, 
L231 BATA 5Sa5¢G, 
1232 DATA 5683, 
i233 DATA SS, 
1234 DATA 5164, 
1225 DATA 5112, 
1236 END 


408 BEYOND GAMES 


S6, 261, S1, 28, 4, 194, 164, 49, 59092 
95. 32, 15, 16, 96, 56, 2353, 48, 5665 
144, 15, 201, 10, 144, 14, 233, 7, 5648 
241, 16, 176, 5, SS, 2601, 10, i756, 5923 
3, 169, 255, 96, 162, 9, S35, G@, Serr 

0, @, 6, GO, @, B, &, G, 5184 

Oo, OG, 8, B, BU, G, @, G@, Sil2 


Appendix E4: 


Print Utilities 


APPENDIX €4. PRINT UTILITIES 


THE FOLLOWING DATA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSUMS FOR MEMORY FROM 5126 TO 5455 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


138G DATA 5128, @, 255, @, Gd, @, G, 8, 8, 5375 

1321 DATA 5128, 169, 255, 141, 1, 22, 95, 169, @, S979 
1382 DATA Si3S, 141, 1, 28, 95, 169, 255, 141, G, 5959 
1383 DATA 5144, 28, 96, 169, @, 141, @, 28, 96, 5666 
1304 DATA 5152, 169, 255, 141, 2, 20, 95, 159, G, SaB4 
1385 DATA S16@, 141, 2, 28, 95, 32, 8, 20, 32, SSli 
1306 DATA 5168, 20, 20, 32, 32, 20, 96, 32, 14, 5434 
1387 DATA S17S, 26, 32, 26, 20, 32, 38, 20, 96, S460 
1288 DATA 5184, 291, @, 240, 36, 141, 3, 28, 173, 5998 
1399 DATA S192, 1, 28, 248, 6, 173, 3, 20, 32, S687 
1318 DATA S2QG, 185, 20, 173, B, 20, 240, 6, 173, 5937 
1311 DATA 5288, 3, 28, 32, 198, 28, 173, 2, 20, 5586 
1312 DATR SZiG, 248, 6, 173, 3, 20, 32, 111, 28, 5821 
1313 DATA 5224, 96, 198, 19, 15, 188, 12, 16, 198, S698 
1314 DATA S232, 14, 18, 169, 13, 32, 64, 28, 169, 5729 
1315 DATA 5248, 18, 32, 64, 28, 9S, 169, 32, 32, 5695 
1316 DATA 5248, G4, 20, S96, 72, 74. 74, 74, 74, S756 
13i7 DATA 5256, 32, 182, 17, 32, 64, 20, 104, 32, 5739 
1318 DATA 5264, 182, 17, 32, 64, 28, SG, 169, 32, Se76 
1319 DATA 5272, 142, 4, 20, 72, 174, 4, 24, 248, 5948 
1228 DATA 5S28G, 19, 206, 4, 20, 32, 64, 20, 124, 5742 
1321 DATA 5288, 24, 144, 240, 184, SB, 142, 4, 20, Sa62 
1322 DATA S296, 174, 4, 28, 248, 9, 286, 4, 22, S973 
1323 DATA S304, 32, 114, 2G, 24, 144, 242, 96, 142, 6118 
1324 DATA S312, 5S, 20, 181, 1, 72, 181, @, 72, 5844 
1325 DATA $328, 174, S, 20, 161, @; 201, 255, 248, 6376 
1328 DATA 5328, 12, 246, @, 288, 2, 246, 1, 32, 6275 
1327 DATA 5336, 64, 20, 24, 144, 235, 104, 149, @, 6976 
1328 DATA 5344, 104, 149, 1, 9S, 184, 178, 184, 168, 6240 


409 


1329 
13530 
1331 
1352 
1333 
133-4 
1335 

1336 
1337 
1338 
1335 
1346 
1341 
1342 


DATA 
BATA 
BATA 
DATA 
DATA 
DATA 
BATA 
DATA 
BATA 
DATA 
DATA 
DATR 
DATA 
END 


5352, 
S36a, 
5369, 
S37éE, 
5334, 
S202, 
S4ag, 
S428, 
S415, 
S424, 
5432, 
5442, 
5448, 


410 BEYOND GAMES 


32, 18, 
18, 32, 


21, 142, 5, 18, 
13, 19, 32, 13, 
148, 18, 281, 255, 240, 
20, 24, 144, 243, 


140, 6, 5734 
19, 32, S538 

5, 32, 64, 6332 
174, S, 18, 172, 6173 
6, 18, 32, 43, 21, 152, 72, 138, SES 
72, 36, 104, 141, 56, 20, 104, 141, 64676 
7, 20, 173, 6, 18, 72, 173, 5, S8r4 

18, 72, 173, 7, 20, 72, 173, 6, 59439 
24, 72, 96, 104, 141, 6, 20, 164, S979 
141, 7, 20, 144, 141, S, 18, 164, 5364 
141, 6, 18, 173. 7, 28, 72, 173, S42 
6, 20, 72, 96, 0, G, BO, @, 5534 

9, 0, @ Bb, B, @, &, @, 5448 


Appendix ES: 


Two Hexdump Tools 


APPENDIX ES 


TWO HEXDUMP TOOLS 


THE FOLLOWING DATA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSUPS FOR MEMORY FROM S456 TO 6463 
SUITRBLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


1488 
1461 
1492 
1463 
1404 
1485 
1486 
1407 
1488 
1499 
1410 
i4il 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1426 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 


DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
LATA 
BATA 
DATA 
DATA 


BATRA 


BATA 
BATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 


S456, 
5464, 
5472, 
5480, 
S438, 
S496, 
5504, 
5512, 
5520, 
5528, 
S536, 
5544, 
5552, 
S560, 
5568, 
S576, 
5564, 
5592, 
S6ag, 
S628, 
S616, 
S624, 
5532, 
S640, 
S648, 
S655, 
5664, 
S672, 
5680, 


0, 4, 9, @, 255, 255, GO, 32, 6802 
8, 24, 173, Bi, 21, 141, 88, 21, 6099 
173, S, 18, 41, 248, 141, S, 18, 6121 


32, 114, 28, 32, 114, 20, 32, 161, 6905 


21, 32, 114, 20, 32, 125, 20, 32, 5884 
154, 21, 32, 13, 19, 173, S, 18, S931 


41, 7, 208, 240, 32, 114, 28, 1735, 6339 


S, 18, 41, 15, 208, 3, 32, 114, 5948 


26, 206, 39, 21, 208, 216, 32, 14, 6317 


20, 35, 32, 148, 18, 32, 131, 28, S825 
36, 173, 6, 18, 32, 131, 26, 173, 6135 
S, 18, 32, 131, 20, 95, 32, 201, 6879 
21, 32, 233, 21, 32, 166, 23, 32, 61296 
29, 24, 32, 235, 22, 32, 66, 23, 6910 
16, 251. 32, 114, 20, 32, 26, 20, 54739 
935, 32, G@, 17, 32, G, 24, 32, SB1S 
228, 20, 127, 13, 84, 82, 73, 78, 6235 
84, 73, 78, 71, 32, 72, 69, 88, G6iSd 
68, 85, 77, 86, 13, 19, 18, 255, 6198 
96, 32, 8, 20, 32, 228, 24, 127, Girl 
13, 16, 83, 69, 84, 32, 83, 84, 6U74 
65, 62, 84, 73, 78, 71, 32. 65, S174 
68, 68, 82, 69, 83, 83, 32, 65, 6182 
78, 68, 32, 86, 82. 69, 83, 83, S215 
32, 34, G1, 34, 46, 255, 32, 7, 5159 
18, 32, 163, 22, 32, 8, 24, 32, 5923 
228, 20, 127, 13, 19, 83, 69, 84, 6298 
32, 69, 78, 68, 32, 65, 88, 68, 6152 
82, GI, 83, 83, 32, 6&5, 78, 6&8, 6240 


411 


1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1449 
1441 
1442 
1443 
1444 
1445 
1445 
1447 
1448 
1449 
1458 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1468 
1461 
1462 
1463 
1464 
1465 
1465 
1467 
146g 
1469 
1472 
147i. 
L472 
1473 
1474 
1475 
1476 


BATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 


ATA 


BATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
RATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
DATA 
LATA 
BATA 
DATA 
DATA 
BATA 
DATA 
BATRA 
BATA 
DATA 
LATR 
DATA 
DATA 
BATA 
DATA 
END 


568s, 
5696, 
5704, 
S712, 
S728, 
S728, 
S736, 
S744, 
S752, 
S768h, 
5768, 
5776, 
S734, 
S792, 
590g, 


>BS8,- 


5816, 
5824, 
5832, 
5840, 
5948, 
S856, 
S564, 
5872, 
5360, 
Sess, 
5ec6, 
5904, 
5912, 
5929, 
92a, 
S936, 
5944, 
5952, 
S96a, 
S966, 
S976, 
sse4, 
5992, 
Saag. 
6008, 
6016, 
eg24, 
6a22, 
684g, 
6048, 
6956, 


412 BEYOND GAMES 


32, 89, 82, 63, 83, 83, 32, 34, 6183 
Bl, 34, 45, 255, 32, 7, 18, 56, 6225 
173, 6, 18, 225, 83, 21, 144, 36, 6399 
298, 8, 173, 5, 18, 205, 82, 21, 6432 
144, 26, 173, &, 18, 141, 85, 21, 6334 
173, S, 18, 141, 84, 21, 96, 173, S439 
6, 18, 141, 983, 21, 173, 5, 18, B2@l 
141, 82, 21, 96. 32, 228, 20, 127, 6491 
13, 19, 10, 18, 32, 69, 82, 82, 8859 
79, 82, 33, 33, 33, 32, 69, 78, 6199 
68, 32. 65, 68, 68, 82, S39, 83, 5303 
83, 32, 76, 69, 83, 83, 322, 84, 62198 
72, BS, 78, 32, 83, 84, 55, 82, 6345 
84, 32, 65, 68, 68, 82, 569, 33, 6543 
83, 44, 32, 87, 72, 73, 67, 72. 6330 
32, 73, 83. 32, 255, 32, 187, 22, 6524 
76, 28, 22, 159, 36, 32, 64, 28, 6263 
173, 83, 21, 32, 131, 24, 173, 82, 6539 
21, 32, 131, 26, 95, 169, 36, 32, 63569 
64, 24, 173, 85, 21, 32, 131, 24, 6386 
173, 84, 21, 32, 131, 20, 96, 32, 6437 
187, 22, 1689. 45, 32, 64, 24, 32, 6427 
2845, 72, 95, 32, 228, 20, 127. 13, 6887 
1G, 16, 68, 8S. 77, 80, 73, 78, 6353 
71, 32, 255, 32, 223, 22, 32, 114, 6651 
2G, 32, 228, 26, 127, 10, 18, 32, 6367 
22, 22, 32, 32, 32, 32, 32, 48, S1s8 
32, 32, 49, 32, 32. 58, 32, 32, 6195 
51, 32, 32, 52, 32, 32, 53, 32, 6229 
32, 54, 32, 32, 55, 32, 32, S6, 6245 
32, 32, 57, 32, 32, 65. 32, 32, 8242 
66, 32, 32, 67, 32, 32, 68, 32, 6237 
32, 69, 32, 32, 78, 13. 18, 18, 6212 
255, 96, 32, 114, 28, 173, S, 18, S665 
72, 41, 15, 141, 86, 21, 184, 41, 6481 
244, 141, 5, 18, 32, 161, 21, 162, 6748 
3, 32, 156, 28, 173, 86, 21, 240, 6781 
13, 162, 3, 32, 156, 28, 32, 13, 6483 
19, 266, 86, 241, 208, 243, 32, 154, 6961 
21, 32, 125, 20, 32, 131, 23, 48, 6432 
9, 173, 5, 18, 41, 15, 201, 9, 6478 
206, 236, 96, 56, 173, 56, 18, 265, 7014 
68S, 21, 144, 11, 268. 15, SG, 173, 6737 
S, 18, 205. 84, 21, 176, 6, 32, 65739 
13, 19, 169, @, 936. 169, 255, 96, S857 
i173, 82, 21, 141, 5, 18, 173, 83, 6744 
Z1, 141, 6. 18, S65, @, @, @, 6338 


Appendix E6: 


Table-Driven Disassembler (Top 
Level and Utility Subroutines) 


APPENDIX EG DISASSEMBLER (TOP LEVEL & UTILITY SUBS) 


THE FOLLOWING BATA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSUMS FOR MEMORY FROM 6409 TO 67193 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


1596 DATA 6464, 5, @. @, @, @, @, B@, B, 5485 

1541 DATA 6408, 16, 32, 8, 2G, 173, BU, 25, i141, 6825 
1iS682 DATA S416, 1, 25, 1695, 255, i41, 84, Zl, 141, 7253 
i543 DATA 6424, 85, 21, 32, 114, 20, s2, 125, 25, 89878 
1594 DATA 6432, 2456, 1, 25, 298, 248, 96, 32, 26, 7274 
1S@5 DATA 6440, 29, 32, 8, 24, 32, 226, 20, 127, 6927 
1566 DATA 6446, 13, 19, 32, 32, 32, 32, 32, 34, Gril 
1567 BATA 6456, 82, 73, 78, 34, 73, 73, 71, 32, (O27 
1506 DATA 6464, 68, 73, 83, 65, 83, 83, 69, 77, B65 
15993 DATA 6472, 56, 76, 59, 82, 46, 13, 18, 255, reed 
1S16 DATA 6489, 32, 233, 21, 32, 20, 24, 32, 225, 735 
1511 DATA 654588, 246, 127, 13, 18, 68, 73, 983, 65, 6947 
iSi2 DATA 6496, 83, 83, 69, 77, 66, 76, 73, 7a, 7181 
1513 DATA 6504, 71, 32, 255, 32, 223, 22, 32, 168, f3al 
15:4 DATA 6512, 23, 32, 114, 24, 32, 125, 25, 16, 65895 
1515 DATA 6524, 251, 322, 265, 2A, 96, 32, 148, 18, 7143 
1516 DATA 6528, 72, 32, 145, 25, S2, 125, 26, 194, Tr@S4 
1517 DATA 6556, 32, 175, 25, 32, 1, 26, 32, 131, 5590 
1518 DATA 6544, 23, 35, 162, 3, 142, 2, 25, 179, F167 
151S DATA 6552, 189, 9, 28, 176, 1589, 80, 27, 142, 7377 
1526 DATA 6560, 3, 25,.32, 64, 24, 174, 3, 25, 6306 
1521 DATA 6568, 232, 246, 2, 25, 285, 238, 96, 174, ¢?as 
1522 DATA 6576, 189, @, 293, 178, 32, 1684, 25, 96, ’rsal 
1523 DATA 6584, 189, 27, 27, 141, 4, 25, 252, 189, 7418 
1524 DATA 6592, 27, 27, 141, 5, 25, 186, 4, 25, 6954 
i525 DATA 6680, 32, 13, 15, 32, 154, 21, 96, 32, 63999 


413 


1526 
1527 

1528 
1529 
L536 
1531 

1532 
1533 
1534: 
1535 
1536 
1537 
1538 
1539 

1549 


DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA. 
DATA 
DATA 
DATA 
DATA 
END 


6608, 
6616, 
6524, 
6632, 
6648, 
6648, 
6656, 
6664, 
6672, 
6582, 
6688, 
6696, 
6704, 
6712, 


414 BEYOND GAMES 


13, 19, 32, 148, 18, 72, 32, 13, 6955S 
13, 32, 154, 21, 104, 32, 131, 28, 712g 
95, 169, 48, 248, 2, 169, 41, 32, 738l 
64, 20, 96, 169, 44, 32, 64, 20, 7141 
169, 88, 32, 64, 24, 95, 169, 44, 7322 
32, 64, 20, 169, 89, 32, 64, 24, 71398 
96, 141, 7, 25, 142, 6, 25, 202, 7386 
48, G6, 32, 26, 15, 202, 16, 250, 7263 
8, 215, 56, 173, 8, 25, 233, 4, 7395 
237, 7, 25, 40, 174, 32, 158, 29, 7s6l 
32, 161, 21, 32, 125, 28, 32, 154, 7265 
21, 32, 13, 19, 246, 6, 25, 16, 7634 
242, 32, 26, 19, 32, 114, 20, 96, 7285 
6, 6, @, @, G@, @, @, @, S712 


\ppendix E7/: 


Table-Driven Disassembler 
(Addressing Mode Subroutines) 


APPENDIX E?7 DISASSEMBLER CADDRESSING MODE SUBROUTINES 3 


THE FOLLOWING BATA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSUMS FOR MEMORY FROM 6729 TO &991 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


16G4 DATA 6720, 32, 207, 25. 162, 2, 169, 4, 965, 7417 
1621 DATA 6728, 32, 64, 26, 32, 235, 25, 162, 2, 306 
1692 DATA 6756, 163, 6, 95, 32, 64, 26, 32, 246, VT4H7 
1603 DATA 6744, 25, 162, 2, 169, 5, 95, 169, 65, 7438 
1664 BATA 6752, 32, 64, 20, 162, G, 1659, 1, 36, 7296 
1665 DATA 8769, 162, @, 169, 8, 96, 165, 35, 32, 7423 
1GG= DATA 67638, 64, 26, 169, 36, 32, 64, 26, 32, 7285 
1647 DATA G775, 2404, 25, 162, 1, 169, 4, 96, 32, 7465 
1683 DATA 6784, 225, 25, 32, 64, 25, 32, 229, 25, 7442 
16095 DATA E7Se, 169, 6, 162, 2, 96, 32, 225, 25, 7589 
1610 DATA 6664. 32, 232, 265, 32, 229, 25, 162, 1, F559 
161i DATA 6566, i69, &. S56, 32, 225, 25, 32, 219, 7614 
i6i¢ DATA 6616, 265, 32, 229, 25. 32, 246, 25. 162, 7593 
16€i3 LATA 6824, 1, 169, 8, 36, 32, 13, 19, 32, 7154 
16i4 DATA 6832, 15, 21, 32. 1458, 16, 72, 32, 13, V1id6 
1615 DATA 6840, 19, 104, 201, &, 16, 3, 266, 6, 7395 
1616 DATA 65848. 18, 8, 216, 24, 109, S, 18, 144, 7396 
ibi’r DATA 63855, 3, 258, 6, 18, 141, S, 18, 4@, 7325 
1615 DATA 6854, 32, 161, 21, 32, 43, 21, 162, 1, 7337 
1619 DATA Ge72, 159, 4, 936, 169, B, 32, 131, 28, 7495 
1624 DATA 6659, 32, 204, 25, 162, i, 169, 4, 936, 7569 
162i DATA Gess, S2, 219, 26, 32, 235, 25, 162, 1, 7620 
1622 DATA 68S6, 169, 6, S6, 32, 2159, 25, 32, 246, 7722 
16235 DATA 6584, 25, 162, 1, 169, G6, SG, 164, 104, 7571 
1624 DATA 6512, 104, 184, S2, 131, 23, 48, 13, 322, 7399 
1625 DATA 6920, 148, 18, 2601, 255, 244, 6, 32, 64, 7884 


415 


16826 DATA 6828, 28, 24, 144, 238, 32, 114, 28, 32, 7552 
1627 DATA 6935, 131, 23, 96, 164, 26, 34, 26, 189, 7545 
1628 DATA 6944, 26, 219, 265, 232, 26, 243, 26, 64, 7806 
1622 DATA 6952, 26, 72, 26, &3, 26, 184, 26, 172, TAB? 
1634 DATA S560, 26, 141, 26, 155, 26, 127, 26, 254, 774i 
1631 DATA 6963, 26, G6, @, @, @, @, 9, BG, 6594 

1632 DATA 6975, @, @, @, B, @, 4, @, 8, SI7E 

1633 DATA 6984, 8, 0, G, O, 8, G, @, 4, S984 

1634 END 


416 BEYOND GAMES 


Appendix E8: 


Table-Driven Disassembler (Tables) 


APPENDIX E8 


DISASSEMBLER (CTAELES 3 


THE FOLLOWING DATA STATEMENTS 
CONTAIN DECIMAL OBJECT CODE AND 
6ss2e TO 7&S73 


CHECKSUMS FOR MEMORY FROM 
SUITABLE FOR LOADING WITH 


THE BASIC OBJECT CODE LOALER. 


1739 
L?7@l 
17@2 
1723 
1704 
17905 
1796 
17a7 
ire 
1709 
i71@ 
vil 
1712 
ivi3 
1714 
1715 
ivis 
1717 
1718 
171g 
1726 
1724 
1f22 
1723 
1724 
1725 
1726 
1727 
1728 


DATA 
DATA 
BATA 
DATA 
DNATA 
DATA 
BATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
RATA 
DATA 
DATA 
DATA 


6992, 
7TO68, 
7608, 
7015, 
7H24, 
7232, 
7449, 
7648, 
7BSG, 
7B64, 
B72, 
7HSG, 
7935, 
7695, 
7194, 
7112, 
7120, 
7i2s, 
7136, 
7144, 
7iS2, 
7159, 
7168, 
T1776, 
7184, 
1S2, 
7208, 
7208, 
721s, 


iz?, 8&6, 65, 6&8, 65, 68, 67, 65, 7583 


78, 88, 
665, 6&7, 
84, 86, 
aa, 76, 
66. 85, 
68, G7, 


6S, 
e3, 
V7? 


34, 1606, 
112, 186,. 19, 1, 
31, 165, 1, 
43, 1@6, 


Se, 7; 


1; 


1, 
i, 


118, 7, 121, 


25, 7, 


1, 


i, 


82, 
66, 
73, 
S2, 
67, 
73; 
82, 
63, 
82, 
7s, 
76, 
8s, 


7é, 
69, 
65, 
75, 
78; 
67, 
os, 
63, 
73, 
og, 
oS, 


66, 
Sl, 
7S, 
66, 
S7, 
768, 
67, 
eo, 
7s; 
(4; 
SS, 
33, 
ag, 
65, 
TS, 


1, 1, 106, 


i, 1, 
1, 1, 


22, 


1, 


Ts 


106, 
186, 
iG%G, 


1, 22, ran 


i, 


T» 


i21, 


GT, 
66, 
69, 
85, 
G7, 


1g, 
1a, 
1, 7441 
1, 7461 


1G, 
ig, 
i2l, 


S77, 
73, 
66, 
5&7, 
768, 
7, 
od, 
69g, 
73; 
Sa, 
68, 


88, 


255, 377 
1, £428 


1; 


“S78 
T5793 
7595 
T6622 
7529 
7626 
7578 
7622 
574 
T7843 
T6872 
(728 
7538 
7713 
(7354 
(742 
7719 
(?73 
77sd2 
7816 


7523 


1, 7448 
1, 7666 


i2l, 


i, 


7386 


417 


cen) 
17360 
173i 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
173g 
1740 
1741 
1742 
1743 
1744 
1745 
L746 
1747 
1748 
1749 
1758 
475i 
1752 


1753" 


1754 
1755 
1756 
L757 
17S8 
17S9 
176a 
if6i 
1762 
1763 
1764 
1765 
17°66 
1767 
1768 
1763 
1778 
1771 
1772 
1773 
17°74 
L177S 
1776 
L7TT 
1778 
177g 
1780 
17s 
1782 
1783 
1784 
178s 
1786 


DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATR 


BATA, 


DATA 
DATA 
DATA 
BATA 
DATA 
DATA 


DATA 


DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
paATA 
DATA 
DATA 
BATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
BATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
END 


7224, 
7232, 
7246, 
7248, 
7255, 
7264, 
7272, 
72389, 
7238, 
7296, 
7304, 
7312, 
7320, 
7328, 
7336, 
7344, 
7352, 
7360, 
7368, 
7376, 
7384, 
7392, 
7439, 
7448, 
7416, 
7424, 
7432, 
744g, 
7448, 
7456, 
7464, 
7472, 
7480, 
7488, 
7495, 
7504, 
7512, 
7528, 
7528, 
7536, 
7544, 
7552, 
7560, 
7568, 
7575, 
75084, 
7592, 
7629, 
7668, 
7616, 
7624, 
7522, 
7E4G, 
7648, 
7656, 
7664, 
7672, 


418 BEYOND GAMES 


136, 7, 1, 1, 1, 7, 121, 1, 7499 

127, 73,1, 1, Ll, 73, 1080, 1, 7669 
1i@S, 73, 100, 1, 85, 73, 184, 1, 7782 
37, 73, 1, 1, 1, 73, 106, 1, 7535 

493, 73, 1, 1, Ll, 73, 100, 1, 7555 
130, 4, 1, 1, L, 4, 124, 1, 7539 

1iS, 4, 124, 1, 85, 4, 124, 1, 7730 
40, 4, 1, 1, 1, 4, 124, Ll, 7456 

142, 4, 1, f, 1, 4, 124, 172, 7737 

1, 145, 1, 1, 151, 145, 148, 1, 7ess 


‘76, 1. 163, 1, 151, 145, 148, 1, 79084 


13, 145, 1, Ll, IS, 145. 148, 1, 7317 
169, 145, 153, 1, 1, 145, 1, 1, 7345 
97, S31, 34, 1, 97, Sl, 94, 1, 75594 
157, S31, 154, 1, 37, Sli, 94, 1, 8022 
16, 31, 1, 1, 97, S1, 94, 1, 7736 
52, 91, 158, 1, 97, SI, 94, 1, 73937 
61, S5, 1, 1, 51, 55, 64, 1, 7ESS 
82, 55, 67, 1, Gl, 55, 64, 1, 7754 
26, 55, 1, 1, 1, 55, 64, 1, 7582 
46, 55, 1, 1, 1, SS, 64, 1, 75828 
58, 133, 1, 1, 58, 133, 76, 1, 7353 
73, 133, 163, 1, S58, 133, 76, 1, 7984 
193, 133, 1, I, 1, 133, 76, 1, 7773 
139, 133, 1, 41, 1, 133, 76, 1, FS@1 
18, 22, @, G, 9, &, 6, @, 7476 

18, 4, 2, @, @, 12, 12, G@, 7450 

2G, 24, BG, G@, @, 14, 14, @, 7512 
13, 16, 0, @, @, 22, 22, @, 7526 
12, 22. 0, @, &, 6, 5, G, 7508 

18, 4, 2, @, 12, 12, 12, 0, 7524 
2U, 24, @, @, 2, 8. 8, B, 7532 

13, 16, @, @ G, 14, 14, @, 7542 
18, 22, @, @, @ 6, &, G@, 7544 

18, 12, 2, B, 12, 12, 12, @, 7564 
2@, 24, @, B, 0, 8, 8, B, 7564 

is, 16, @, G, @, 14, 14, @, 7574 
18, 22, 0, @, @, G, 6, @, 572 

16, 4, 2, 8, 26, 12, iZ2, G, 76G2 
23, 24, GO, G, G, 8, 8, @, 75596 

18, 16, @, @, @, 14, 14, 28, 7634 
G6, 22, G6, @, 6, 6, G6, @, 7592 

18, @, 18, @, 12, 12, 12, O, 7632 
24, 24, @, G, &, 3B, 10, @, 7638 

18, 16, 18, @, G, 14, @, 9, 7642 

4, 22, 4, @, 6, & 6, @, 7632 

18, 4, 18, @, 12, 12, 12, @, 7653 
24, 24, 3, @, 8, 8, 16, G, 67a 

24, 165, 18, @, 14, 14, 16, Y, 77@6 
4, 22, @, @, &, 6, 6, G@, TEE 

18, 4,°18, @, 12, 12, 12, 8, 7768 
24, 24, @6, 3, @, 8, 8, @, 7TEI2 

15, 16, 0, @, 3B, L4, 14, @, 7782 

4, 22, @, @, 6, 6, 6, G@, 7692 

18, 4, 18, 9, 12, le, 12, 9, 732 
26, 24, @, G@, 9, 8S, &, U, 7724 

18, 15, G, G, G, 14, 14, Y, 7734 


Appendix E9: 


Move Utilities 


APPENDI« ES MGVE UTILITIES 


THE FOLLOWING BATRA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSLIIS FOR MEMORY FROM 6654 TO 6399 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


1893 DATA 6264, @, @, B, G, 32, 8, 28, 32, 6155 

19891 DATA 8872, 228, 20, 127, 13, 19, 32, 32, 32, 6566 
1e62 DATA 6920, 32, 32, 77, 79, 85, 69, 32, 84, G571 

1893 DATA 6288, 79, 79, 76, 45, 13, 19, 10, 255, 6656 
1894 DATA 6896, 32, 233, 21, 32, 18S, 24, 174, 85, 6882 
1885 DATA 6184, 21, S6, 173, 84, 21, 237, 52, 21, 6799 
1886 DATA 6112, 141, 175, 23, 176, 2, 282, SS, 138, 7926 
L697 DATA 6128, 237, 83, 21, 141, 177, 23, 176, 3. E9BL 
1S@S DATA 6128, 169, @, 96, 168, 3, 185, @, G, 6741 

1889 DATA 6135S, 72, 135, 16, 249, 56, 173, 83, 21, 6942 
1819 DATA 6144, 205, 179, 23, 144, 64, 288, 24, 173,.7164 
i811 DATA 6152, 82, 21; 205, 178, 23, 144, 54, 288, 7067 
181Z DATA 6160, 14, 160, 8, 104, 153, @, 8, 200, 6791 
1813 DATA 6168, 192, 4. 208, 247, 169, 255, 96, 32, 7371 
1914 DATA G176, 164, 24, 168, @, 174, 177, 23, 248, 7133 
1515 DATA 6184, 14, 177, @, 145, 2, 280, 208, 249, 71793 
1815 DATA 6192, 230, 1, 239, 3, 202, 208, 242, 136, 7444 
1817 DATA 62098, 209, 177, B, 145, 2, 204, 176, 23, 7127 
1818 DATA 6298, 268, 246. 75, 17, 24, 173, 177, 23, 7152 
1619 DATA 6216, 248, 72, 172, 177, 23, 173, 176, 23, 7272 
1828 DATA 6224, 56, 233, 255, 178, 1, 136, 17@, 132, 7383 
1821 DATA 6232, 3, 138, 24, 199, 82, Zl, 133, 8, 6742 
1822 DATA 6249, 144, 1, 286, 152, 189, 93, 21, 133, 7083 
1823 DATA 6248, 1, 138, 24, 109, 178, 23, 133, 2, 6856 
1824 DATA 6256, 144, 2, 230, 3, 165, 3, 109, 179, 7a891 
19825 BATA 6264, 23, 133, 3, 174, 177, 23, 160, 255, 7212 
1626 DATA G27Z, 177, @, 145, 2, 136, 209, 249, 177, 7368 
i827 DATA 6289, @, 145, 2, 198, 1, 198, 3, 202, 7829 

1828 DATA 6288, 288, 235, 32, 164, 24, 172, 176, 23, 7323 


419 


1629 
1Bsg 
1831 
1832 
1833 
1634 
1635 
1836 
1837 
L638 
1839 
1640 
1641 
1842 


DATR 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
BATA 
DATA 
DATR 
BATA 
DATA 
DATA 
END 


62396, 
6204, 
6312, 
63209, 
63268, 
63356, 
6344, 
6352, 
6250, 
63E3, 
63765, 
6334, 
6332, 


420 BEYOND GAMES 


i77, @, 
247, 76, 
173, 83, 21, 

133, 2; 
9, 20, 32, 226, 20, 


0, 

23, 
35, 
13, 
G2, 
78, 
BS, 
ts 

173. 


@, O,; 


32; 
1G, 
84, 
32, 
83, 
is, 173, 
6, 16, 
0, G, @, 


5 


O, 
OB, a, 


145, 2, 
17, 


73, 
65, 
83, 


136, 
L73, 82, 21, 133, 
133, 1, 173, 178, 7874 
173, 23, 133, 3, 6989 
127, 6891 
69, 8°64 
73, 79, 6963 
80, 82, GSE7 
255, 32, 7641 
178, 23, 6931 
@, 7Ol1l2 


24; 
173, 


6S, 65, 
7s, 


78, 


84, 32, 
65, 84, 
68, 32, 
32, Sl, 46, 
5, 15, 141, 
141, 179, 23, S56, 
@, 6, GY, @, 6384 
0, G, G, G@, S392 


192. 255, 203, 7411 
(B77 


Appendix EI C 


Simple Text Editor 


APPENDIX £16 A SIMPLE TEXT EDITOR 


THE FOLLOWING BATA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSUMS FOR MEMORY FROM 7680 TO 8i9l 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


1999 DATA 7683, 255, 1, 32, 15, 38, 32, 55, 30, 8130 
1991 DATA 7688, 32, 200, 39, 24, 24, 144, 246, 32, 84229 
1992 DATA 7696, 8, 20, 32, 228, 20, 127, 13, 14, 8154 
1992 BATA 7724, 10, 83, 69, 34, 32, 85, 80, 32, 8179 
1994 DATA 7712, SS, 63, 73, 84, 32, 66, 85, 73, 8253 
1995 BATA 7726, 76, 69, 82, 45, 13, 19, 1G, 255, 8275 
19806 DATA 7728, 32, 233, 21, 32, 168, 23, 96,°32, 38357 
1967 DATA 7736, 196, 17, 32, 43, 17, 174, 3, 16, 8234 
1988 DATA 7744, 165, 3, 32, 19, 17, 32, 43, 17, 8a57 
1S59 DATA 7752, 32, 118, 17, 32, 1936, 17, 32, 94, 8299 
1916 DATA 7769, 30, 32, 211, 17, 32, 118, 17, 32, 93249 
1911 DATA 7758, 137, 39, 32, 211. 17, 96, 32, 18, 8341 
i9iz DATA 7775S, 21, 173, 3, 18, 74, 179, 282, 202, 8637 
1513 DATA 7784, 32, 28, 19, 282, 16, 259, 173, 3, 8585 
1914 DATA 7792, 16, 141, @, 38, 32, 148, 18, 32, 8289 
1915 DATA 7828, 155, 17, 32, 127, 17, 32, 13, 19, 8212 
1S16 DATA 7888, 246, B, 36, 16, 239, 322, 43, 21, 8395 
1S17 DATA 7816, 96, 173, 3, 15, 74, 232, 2, 32, 8445 
i91a DATA 7824, 129, 17, 173, 1, 3@, 201, 1, 209, 985e4 
19193 DATA 7832, 5, 18S, 73, 24, 144, 2, 169, 79, 8497 
1929 DATA 7849, 32, 155, 17, 169, 2, 32, 129, 17, 8393 
1921 DATA 76848, 173, 7, 18, 32, 155, 17, 169, 2, 8419 
i922 DATA 7855, 32, 125, 17, 173, 6, 18, 32, 163, 8426 
1923 DATA 7864, 17, 173, S, 18, 32, 163, 17, 96, 8385 
1924 DATA 7872, 6, 3, 62, 6B, 16, 127, B81, B, 8227 

18625 DATA 788@, 32, 224, 19, 295, 198. 30, 208, 23, S818 
1925 DATA 7888. 72, 32, 224, 18, 205, 198, 30, 288, S875 
1S27 DATA 7896, 4, 1804, 164, 194, 96. 141, 199, 39, 8678 
1928 DATA 7984, 194, 32. 231, 30, 173, 199, 39, 205, 8948 


421 


1929 DATA 7912, 
1930 DATA 7929, 
1931 BATA 7928, 
1932 DATA 7936, 
1933 DATA 7544. 
1934 DATA 7852, 
1935 DATA 7962, 
1936 DATA 79588, 
1937 DATA 7976, 
1928 DATA 7984, 
1939 DATA 7992, 
1949 DATA Saag, 
1941 DATA seg, 
1942 DATA sais, 
1943 DATA s@z4, 
1944 DATA g§agz, 
1945 DATA gaan, 
1946 DATA 9248, 
1847 DATA S056, 
1948 DATA 28264, 
1949 DATA 8872, 
1959 DATA sasa@, 
1951 DATA 8698, 
1952 DATA sags, 
1953 DATA 98104, 
1954 DATA 8112, 
1955 DATA 212g, 
1956 DATA 8128, 
1957 DATA 8136, 
18S8 DATA 68144, 
i9S9-DATA 6152, 
156G DATA 8168, 
1961 DATA 6168, 
1962 DATA 8176, 
1963 DATA 9184, 
1964 END 
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192, 230, 268, 11, 2065, 1, 39, 16, S697 
S, 169, 1, 141, 1, 36, 36, 2985, 8568 
194, 30, 283, 4, 32, 121, 31, 36, 8644 
205, 195, 320, 208, 4, 32, 135, 31, 8775 
96, 265, 197, 36, 248, 4, 32, 221, 8937 
31. 95, 295, 196, 30, 205, 4, 32, 8754 
137, Bi, 36, 285, 192, 30, 268, 4, 8523 
32, 18@. 31, 96, 174, 1. 3@, 248, 8752 
4, 32, 52, 31, 36, 32, 45, 19, 8287 

2, 131, 23, S56, 72, 32, 18, 21, 84a9 
173, 83, 21, 72, 173, 82. 21, 72, 8689 
173, 85, 21, 72, 173, 84, 21, 72, 87@l1 
32, 183, 22, 32, 131, 23, 48, 17, 8416 
32, 225, 24, 173. 84, 21, 208, 4, 8788 
2H6,. 85, 21, 286, 84, 21, 32, 214, SASS 
23, 104, 141, 84, 21, 164, 141, 85, 9735 
21, 164, 141, 82, 21, 164, 141, 835, 8737 
21, 32, 43, 21, 164, 32, 45, 31, 8377 
96, 32, 148. 18, 261, 255, 248, 4, 390956 
32, 131, 23, 36, 169, 255, 96, 56, 8922 
173, 83, 21, 295, 6, 18, 144, 12, 8734 
208, 16, 173, 82, 21, 205, S, 18, 8sasg 
244, 23, 176, 6, 32, 26, 19, 169, 8779 
@, 96, 173, B82, Z1, 141, 5S, 18, 8632 
173, 83, 21, 141, 6, 18, 169, @, 8715 
96, 169, 255, 95, 32, 160, 23, 15S, 9112 
255, 32, 45, 19, 32, 131, 23, 16, 8673 
246, 32, 160, 23, 96, 32, 168, 23, 8900. 
32, 24, 20, 32, 148, 18, 201, 255, S862 
249, 8, 32, 64, 20, 32, 131, 23, 8594 
16, 241, 76, 26, 24, 32, 18, 21, 8682 
173, 83, 21, 72, 173, 82, 21, 72, 8857 
32, 226, 24, 32, 131, 23, 32, 183, 8771 
22, 32, 214, 23, 104, 141, 82, 21, 8815 
144, 141, 833, 21, 32, 43, 21, 96, 8725 


Appendix EI I: 


Extending the Visible Monitor 


APPENDIX Ell EXTENDING THE VISIBLE MONITOR 


THE FOLLOWING DATA STATEMENTS 

CONTAIN DECIMAL OBJECT CORE AND 
CHECKSUMS FOR MEMORY FROM 4272 TO 4351 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


2600 DATA 4272, 260i, 84, 288, 9, 173, B, 2H, 73, S835 
261 DATA 4204, 255, 141, G, 20, 96, 261, 85, 2038, 5285 
2bAZ DATA 4285, 9, 173, 2, 20, 73, 255, 141, 2, 4963 
2003 DATA 4296, 24, 95, 201, 72, 208, 13, 173, G, SY7S 
2684 DATA 43504, 26. 265, 4, 32, 87, 21, SE, 32, 4864 
2285 DATA 4312, 174, 21, S6, 201, 77, 2460, 4, 32, 5125 
2046 DRTA 4324, 180, 23, 936, 201, 63, 208, 13, 173, S277 
2u87 DATA 4328, @, 29, 205, 4, 32, 9, 25, 36, 4722 

2U8S BATRA 4356, 32, 38, 25, 96, 201, B84, 2465, 4, S824 
2603 DATA 4344, 32, 2, 38, 95, 96, G@, 4. G, 4660 

2916 END 


423 


Appendix E12: 


system Data Block for the Ohio 
Scientific C-1P 


APPENDIX E1Z S’STEM DATA BLOCK FOR GSI CIP 


THE FOLLOWING DATA STATEMENTS 

CONTAIN DECIMAL OBIECT CODE AND 
CHECKSUMS FOR MENGRY FROM 46996 TO 4115 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


£199 DATA 4096, 161, 2848, 32, 24, 24, 211. 32, 16, 4744 
2141 DATA 41284, 237. 254, 45, 191, 1°7, 252, 15, 16, S2s2 
21@2 DATA 4112. S565. 35, &. G, @, G@, BG, OB, 45384 

2163 END 


OK 
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Appendix E13: 
system Data Block for the PET 200! 


APPENDIX E13 SYSTEM DATA BLOCK FOR THE PET 2891 


TRE FOLLOWING DATA STATEMENTS 

CONTAIN DECIMAL OBJECT CODE AND 
CHECKSUMS FOR MEMORY FROM 4895 TO 4151 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOABER. 


2ig@ DATA 42896, @, 128, 49, 39, 24, 131, 32, 36, 4520 
2161 DATA 4164. 42, 15, 215, 255, 16, 16, 16, i6, 4691 
2192 DATA 4112, S56, 41, 127, 55, 291, 64, 144, 17, 4658 
21983 DATA 4128, 281, S65, 144, 1G, 162, 14, 141, 75, 4964 
2164 BATA 4126, 232, 233, 32, 24, 144, 3, 56, 233, S885 
2185 DATA 4136. 64, 96, 32, 225, 255, 41, 127, 244. 5219 
2146 DATA 4144, 249, 96, @, 9, 9, OB, G@, 9, 4489 

2167 END 
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Appendix E14: 
System Data Block for the Apple I! 


APPENDIX £14 SYSTEM DATA ELOCK FOR THE APPLE II 


THE FOLLOWING DATA STATEMENTS 

CONTAIN DECIMAL OBJECT CUBE AND 
CHECKSUMNS FOR MEMORY FROM 4696 TO 4127 
SUITASLE FUR LOADING WITH 

THE ERSIC OBJECT CODE LOADER. 


Z1fG NATA 4@98, GB. 4, 128, 39, 7, 7, 160, 222, 4663 
2181 DATA 4184, 23, 16, 75, 16, 15, 16, 16, 16, 4246 
2192 BATA 4112, 95, 9, 128, 96, 32, 12, 253, 41, 4779 
2143 BATA 4120, 127, 95, 9, 128, 32, 253, 251, 35, 5112 
2144 END 


OK 
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Appendix E15: 


system Data Block for the Atari 800 


APFENDIX ELS 


SYSTEM DATA BLOCK FOR THE ATARI 82G 


THE FOLLOWING DATA STATEMENTS 

CONTAIN DECIMAL CBJECT CODE AND 
CHECKSUMS FOR MEMORY FROM 3712 TO 4223 
SUITABLE FOR LOADING WITH 

THE BASIC OBJECT CODE LOADER. 


2100 
2161 
2102 
2183 
2164 
2185 
2186 
2167 
2148 
214g 
2119 
21lil 
2bi2 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2126 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 


BATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
BATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 


3712, 
3728, 
3728, 
3736, 
3744, 
3752, 
3760, 
3768, 
3776, 
3784, 
3792, 
3808, 
3828, 
3616, 
3824, 
3832, 
3840, 
3848, 
3856, 
3864, 
3872, 
3880, 
3888, 
38396, 
3904, 
3912, 
3920, 
3928, 
3936, 


32, 196, 17, 173, 179, 23, 72, 173, 4577 
178, 23, 72, 173, 85, 21, 72, 173, 4517 
84, Zi, 72. 173, 83, 21, 72, 173, 4427 
82, Zi, 72, 32, 43, 17, 165, @, 4168 
141, 178, 23, 155, 1, 141, 179, 23, 4595 
32, 118, 17, 165, @, 141, 82, 21, 4328 
165, 1, 141, 83, 21, 174, 3, 16. 4364 
172, 4, 16, 32, 69, 17, 165, 6, 4234 
141, 84, 21, 165, 1, 141, 85, 21, 4435 
32, 214, 23, 172, 4, 16, 162, G, 4407 
32, 68, 17, 174, 3, 16, 168, 1, 4255 

32, 19, 17, 104, 141, 82, 21, 164, 4320 
141, B83, 21, 104, 141, 84, 21, 104, 4587 
141, 8&5, 21, 104, 141, 178, 23, 104, 4613 
141, 179, 23, 32, 211, 17, 96, YG, 4523 
0, @, 9, @, GO, B, G, BG, 3932 

168, 106, 59, @, G, 107, 43, 42, 4305 
111, G@, 112, 117, 13, 165, 45, Gl, 4412 
118, G, 99, @, GO, 398, 120, 122, 4413 

52, @, SL, 54, 27, 53, 50, 49, 4200 

44, 32, 46, 110, @, 109, 47, 8, 4260 
114, @, 141, 121, 9, 116, 119, 113. 4573 
S57, @, 48, SS, 8, 56, GY, G2, 4234 

162, 164, 190, @, @, 143, 115, 937, 4517 
7S, 74, 58, G, @, 75, Gl, 34, 4372 

73, @, 80, 8S, 13, 73, 45, 61, 4348 

S36, @, 67, GB, B, 66, 88, 34, 4317 

S2, @, 51, 54, 27, 37, 34, 33, 4216 

99, 32, 33, 78, @, 77, 63, O, 4369 
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2129 
2136 
2i3sli 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2148 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2149 
2149 
2152 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2166 
2161 
ele2 
2163 
2164 


OK 


DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
BATA 
DATA 
DATA 
DATA 
DATA 
BATR 
BATA 
BATA 
BATA 
DATA 
BATA 
BATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATR 
END 


3944, 
3952, 
3966, 
3966, 
3976, 
3984, 
3992, 
4000, 
40608, 
4016, 
4024, 
4932, 
4040, 
46046, 
4056, 
4064, 
4172, 
408g, 
4058, 
4036, 
4104, 
4112, 
4129, 
4128, 
4136, 
4144, 
4152, 
4166, 
4168, 
4176, 
4184, 
4192, 
4200. 
4268, 
42165, 
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gz, 9, 635, 89, 9, 84, S77, B1, 4445 
4G, @, 41, 39, 127, 64, 6, B, 4263 
74, 72, 68, 9, @, 71, 83, 65, 4389 
a, @, B, @, @, BU, @, GB, 336a 
6, @, 16, G, B@, @, 4 BG, 3992 
6, @, 3, 8, @, @, G, @, 3987 
4, @ @, G@, @G @, & YU, 3992 


4, 8, G, G, @, BU, B@, BG, 4Baa 
1, 8, @, @, @, BG. YB, GB, 4008 
O, 0, @, @, G, BU, B@, G, 4616 
6, @, 8, G, @, GB, @, B, 4030 
4H, @, G, @, @, @ @, GB, 4032 
G, @, 9, B, @, G, @, GB, 4046 
0, G@, vd, B GB, BB, BG, BG, 4048 
Go, @, 9, @, @, G, G, B@, 4056 
G, @, 6, @, BG, @. G, BG, 4654 
G, @, GO, G, @, B@ @, GB, 4072 
4, B, @, @, G, G@, @, @, 46380 


», @, @ 8, B, 3B, BY, 4688 

124, 48, 39, 23, 127, @, 123, 4638 
48, 16, 54, 16, 16, 16, 16, 16, 4294 
96, 41, 127, 56, ZG@1, 32, 144, 8, 4817 
261, 96, 144, &S, 2801, 123, 144, 7, S044 
173, 6, 16, S96, 56, 233, 32, 36, 4836 
173, 252, 2, 201, 255, 240, 249, 168, 5676 
165, 9, 15, 96, O, @, 201, 13, 4654 
268, 6, 169, @, 141, 53, 16, 96, 4841 
261, 10, 208, 3, 76, 128, 14, 141, 4941 
52, 15, 32, 196, 17, 172, 4, 16, 4673 
174,.53, 16, 32, 60, 17, 173, 52, 4753 
16, 32, 124, 17, 238, 53, 16, i173, 4853 
53,°16, 205, 3, 16, 208, 6, 32, 4731 
58, 16, 32, 128, 14, 32, 211, 17, 4705 
96, 8, 8, G@, @, @, G, BG, 4304 

4, 0. G, @, GB, @, BG, @, 4216 


index 


ABSLUT 123 
ABS.X 124 
ABS.Y 124 
absolute mode 16, 123 
ACC 124 
accumulator 3, 124 
ADC 38 
addressing 
absolute indexed 21 
base 20, 33 
description 16-17 
index 20-21 
indirect 27, 45, 119, 126 
pointer 45 
relative 26, 127 
zero page 17, 45, 129 
zero page indexed 21 
addition 38 
ALL.OFF 85 
ALL.ON 85 
AND 39 
Apple computer 2, 6, 7, 44 
arithmetic 23, 34 
arrow line 67, 72 
ASCII 11, 15, 46, 52, 54, 62, 145, 159 
assemblers 12, 45 
assembly language 1, 8 
Atari computer 2, 6, 7, 44 


BAD 117 
BASIC 7, 26, 28 
BCC 24 

BCS 24 

BEQ 23-24 
binary 9, 36 
bits 4, 8, 41, 45 
bit twiddling 39 
BLANK 58 
BMI 24 

BNE 21, 23-24 


BPL 24 

branch 23-24, 41, 114 
break flag 22 

bug 49 

BVC 24 

BVS 24 

byte 8 


call 28 

carry 23, 35, 36, 38 
carry flag 22 
cartesian coordinates 49 
CENTER 55 
character graphics 44 
CHARS 90 

CLD 39 

clear screen 57 
CLR:TV 57 

CLR.XY 58 

CMP 22 

comma 21 
COMMENT 14 
compare 22 
conditional branch 23 
constant 15-16, 22 
CPX 21-22 

CPY 22 

CR.LF 89 

CR.LFS 90 


data line 67, 69 
data mode 61 
debugging 49 

DEC 37 

decimal 15, 39 
decimal flag 22, 39 
decrement 37 
delete 158 


INDEX 429 


DEST 154 

DEX 37 

directives 18 
disassembler 114, 160 
display-memory 47, 49 
divide 36 
documentation 14 
DSLINE 117 
DUMMY 162 

dummy subroutine 30 
DUMPSL 102 


EA 154 

EDITIT 152 
EDITOR 146 
EDMODE 148, 153 
8080 7 

equate 18 
error-checking 52 
ETX 92, 129, 157 
EXTEND 161 


fetch 12, 27 

FINISH 131 

FIXCHR 46 

flag 33, 42, 67, 85, 160 
FLSHKY 153 

flush buffer 157 

front end 135 

function keys 133 


GETKEY 76, 152 
GOSUB 28 
GOTO 26 
graphic 46, 64 


hand 44 

HEADER 107 

hierarchy 73 

hexadecimal 9-12, 19, 52, 62, 98, 114 
HEXDUMP 160 

hexdump 13, 98 

high byte 45, 119, 121 

HOME 48 

hook 30, 84 


immediate mode 14-15, 22, 125 
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IMMEDT 125 
IMPLID 125 
implied mode 125 
INC 37 
increment 21, 24, 37 
index 25, 33, 118-119 
INDRCT 126 
IND.X 126 
IND.Y 127 
input/outut 5 
input ports 4 
INSCHR 149 
INSERT 154 
insert 149 
instruction: 

cycle 11-12 

set 7 
interpreter 7 
interrupt flag 22 
INX 21, 37 
INY 37 


JMP 28, 62 
JSR 28, 63, 119 
juggling 8, 15 


key 74 


LABEL 14 
label 14, 18, 21, 45 
label line 67, 69 
LDA 14-15, 20 
LDX 14, 20 
LDY 14 
least-significant: 
byte 17 
bit 45, 54 
LIFO 30 
listing 159 
logical operations 23, 39 
loop 22, 24, 66, 139 
low byte 45, 121 
LPAREN 121 


machine language 12, 60 
mask 39 

MCODES 118 

memory 3, 44 


memory-mapped display 44 
message 84 
microprocessor 3, 7 
MNAMES 118 
MNEMON 118 
MNEMONIC 14 
mnemonic 14, 114 
mode 148-149 
MODEKY 153 
MODES 119 
monitor 60-61 
most-significant: 

byte 17 

bit 45, 54 
MOVDN 139 
move 134 
MOV.EA 135, 154 
MOVER 143, 160 
MOVE TOOL 142 
MOVNUM 135 
multiply 36 


negative 23, 26 
negative flag 22 
NEXTCH 155 
next character 155 
NEXTKY 153 
NEXTSL 111 
nybbles 10, 39 


object code 10, 12, 15 


Ohio Scientific (OSI) computer 2, 6, 7, 44, 47, 61, 159 


ONEBYT 120 
opcodes 11-12, 14-15, 27, 114 
OPERAND 14 
operand 14, 16, 17, 21, 24-28, 38, 114 
operating systems 6 
OPERND 119 
ORA 39 
output: 
port 4 
print 84 
vectors 88 
overflow flag 22 
overlap 135 
overstrike 149 
OVRCHR 149 


P register 22 

page 17 

PAGE-DOWN 141 
PAGE-UP 141 
parentheses 119 

PC 11-12, 27 

PET computer 2, 6-7, 44 
PHA 30 

PLA 30 

pockets 8, 31 

pointers 27, 45, 119 
POINTR 45 

pop 30 

POP.SL 95, 155 
positive 26 

PR.ADR 102 

PR.BYT 89 

PR.CHR 87 

PR.DIS 132, 160 
PRDUMP 103, 160 
PR.EA 107 

previous character 156 
PREVKY 153 
PREVCH 156 

PRINT: 93 

print 157 

print utilities 84 
PRLINE 109 

PR.MSG 91 

PR.OFF 85 

program counter 11, 27 
programmable memory 4, 7 
PR.ON 85 

PR.SA 106 

PRIBUF 157 

PRTKEY 153 
pseudo-addressing mode 129 
pseudo-mnemonic 117 
push 30 

PUSHSL 95, 154 


QUITKY 152 


RANGE 107 
registers: 
A 3, 8, 15 
compare 22 
description 3 
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index 20 TAY 33 


processor status (P) 22, 64 TEST 24 

transfer 33 TEX 92, 130 

X register 3, 8, 20, 24, 49, 56 text: 

Y register 3, 8, 21, 49, 56 buffer 146 
RELATV 127 description 130, 145, 150 
relocate 28 editor 145, 160 
RETURN 28 title 142 
return 29 toggle 41 
ROM 4, 6 tool 142 
ROMPRT 88 truth table 39 
ROMTVT 88 TVCOLS 49, 150 
rotate 36 TV.DIS 132, 160 
ROWINC 48 TVDOWN 51 
RPAREN 121 TVDUMP 98, 160 
RTS 28, 62, 136 TVHOME 55 
RUBKEY 153 TVPLUS 51 

TVPOP 56, 59 

TVPTR 45 
SA 154 TVPUSH 56, 59 
SAHERE 154 TV.PUT 46 
screen 44 TVROWS 49 
screen utilities 58 TVSKIP 51 
SED 39 TVT 84 
SELECT 94, 117 TVT.OFF 85 
set 39 TVT.ON 85 
SETBUF 147 TVIOXY 48 
SET.DA 143 TWOBYT 121 
shift 35 TXA 33 
SHOWIT 148 TXMODE 130 
6502 8, 11 TYA 33 
6800 7 
source code 13, 18 UPDATE 74, 162 
SPACE 89-90 USR.OFF 85 
space bar 65 USR.ON 85 
STA 16, 20 USROUT 88 
stack 30 utilities 120, 134 
status 150 
STRIKE 153 Visible Monitor 63, 160 
string 129, 145 VUBYTE 52, 54 
SUBPTR 119 VUCHAR 52 
subroutines 30, 62, 119 
SUBS 120, 130 XINDEX 122 
subtraction 38 XOR 39, 41 
SYSTEM DATA 88 

YINDEX 122 


table 32, 118-119 
TAX 33 Z80 7 
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zero 22 

zero flag 22 
ZEROPG 128 
ZERO.X 129 
ZERO.Y 129 
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Beyond Games: Systems Software for Your 6502 
Personal Computer 


By Ken Skier 


Use your 6502 personal computer for more than games! Learn 
how it works and how to make it work for you. This book, for Apple, 
Atari, Ohio Scientific and PET computer owners who know little or 
nothing about bits, bytes, hardware, and software, presents a guid- 
ed tour of your computer. Beginning with basic concepts such as 
what is memory? and what is a program?, Beyond Games moves 
through a fast but surprisingly complete course in assembly 
language programming. Having mastered these fundamentals, the 
reader is introduced to many useful subroutines and programming 
tools, such as screen utilities, print utilities, a machine language 
monitor, a hexadecimal dump tool, a move tool, a disassembler, 
and a simple, screen-based text editor. 
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